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PREFACE 


The  value  of  Computerized  Management  Information  Systems 
(MIS)  was  first  realized  in  the  1960's.  Since  that  time 
numerous  approaches  have  been  developed  to  implement  MIS, 

Some  have  failed, ^others  have  been  developed  as  a backlash 
to  these  failures , '^This  report  traces,  briefly,  the  history 
of  computerized  Management  Information  Systems,  then  proposes 
an  approach  for  the  development  of  a small  MIS.  This  ap- 
proach was  evaluated  through  the  development  of  the  Depart- 
ment of  Mathematical  Sciences  Information  System  (DEMIS)  and 
its  first  operational  Module,  the  Student  Information  System 
(SIS),  The  report  is  divided  into  five  chapters.  Chapter  1 
traces  the  history  of  MIS  and  outlines  the  approach  proposed 
for  small  system  development.  Chapter  2 discusses  general 
Information  pertaining  to  SIS.  Chapter  3 sets  forth  a com- 
plete yet  simple  set  of  operator  instructions.  Chapter  4 pro- 
vides philosophy,  approaches  and  requirements  for  system 
maintenance  and  modification,  and  Chapter  5 looks  at  the 
future  of  DEMIS  and  provides  some  concluding  remarks. 

Following  the  text  is  complete  documentation  on  the 
system  including  the  design  package,  a system  listing,  sample 
outputs,  input  card  formats,  configuration  of  maintenance  and 
execution  decks,  a list  of  error  messages  with  explalnatlons 
and  required  corrective  actions,  and  listings  of  file  creation 
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and  SIS  cataloging  decks 
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Chapter  1 

MAilAGEMENT  INFORMATION  SYSTEMS  t 
THEIR  HISTORY  AND  A PROPOSED 
DEVELOPMENTAL  APPROACH 

The  use  of  the  computer  as  a management  tool  is  trace- 
able back  to  the  mid  1950 's  (Mathews,  8).  It  was  first  used 
to  reduce  clerical  work,  with  applications  expanding  into 
payroll,  personnel.  Inventory  status,  cost  distribution,  sales 
analysis  and  similar  applicatipns . The  1960's  brought  about 
a new  role  for  the  computer,  that  of  providing  information 
which  could  help  in  management  decision  making.  In  this  re- 
gard, however,  the  numerous  stand-alone  applications  which 
had  been  developed  presented  a problem.  Each  had  its  own 
data  base  which  duplicated  information  found  in  the  other 
data  bases.  Not  only  was  this  wasteful  in  terms  of  duplicate 
storage  of  data,  but  data  consistency  problems  were  noted  when 
like  data  items  from  several  different  data  bases  were  exam-^- 
ined.  While  inconsistencies  were  frequently  explainable 
(e.g.  one  data  base  was  updated  dally,  while  another  might 
require  only  monthly  updating)  questions  nevertheless  arose 
as  to  why  data  was  maintained  in  more  than  one  location.  The 
solution  to  these  problems  was  seen  as  developing  separate 
but  Integrated  data  bases  which  would  solve  problems  of  incon- 
sistency and  duplication  of  data,  and  provide  a means  of  in- 
tegrating data  for  use  in  management  oriented  information 
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systems  (MIS).  The  MIS  required  the  variety  of  information 
which  was  then  available.  The  software  overhead  required  in 
the  maintenance  of  Integrated  data  bases  soon  led  to  the  con- 
temporary concepts  of  data  base  management  systems  which  pro- 
vide common  data  bases  for  a variety  of  applications.  In 
the  mid  1960's  several  factors  combined  to  cause  a tremendous 
increase  in  interest  in  Management  Information  Systems, 

These  include  the  availability  of  Integrated  data  bases,  and 
the  third  generation  computers  with  their  increased  speed 
and  power.  Management  began  to  accept  the  computer  and 
realized  it's  potential  to  provide  information  upon  which 
management  decisions  could  be  made. 

Unfortunately  the  late  1960's  brought  an  era  of  unhappy 
experiences  with  MIS,  many  due  to  the  "total”  information  con- 
cept which  was  not  far  enough  along  in  its  development  to  be 
placed  into  production.  This  concept  also  tended  to  drive 
an  organizations  information  system  rather  than  to  augment 
and  support  existing  (though  perhaps  non-automated)  systems 
(Caruth  3! 197) (the  total  concept  is  further  discussed  below). 
Management  expected  too  much,  too  soon  from  their  MIS,  and 
the  results  were  generally  disappointing.  The  reaction  to 
this  experience  was  reevaluation  of  MIS  theory  and  a tremen- 
dous proliferation  of  ideas  in  the  literature. 

Sherman  C.  Blumenthal  (1)  has  written  a classic  text 
which  classifies  MIS  approaches  into  six  catagorlesi 


3 


1.  The  organizational  approach  establishes  independent 
systems  along  organizational  lines,  with  interaction 
depending  on  higher  level  coordination. 

2.  The  data  collection  approach  is  to  collect,  classify 
and  store  data  for  some  unknown  future  use. 

3.  The  top  down  approach  holds  that  once  the  information 
needs  of  top  management  are  determined,  the  system 
necessary  to  supply  the  information  can  also  be 
determined . 

4.  The  data  bank  approach  sets  up  a pool  of  highly  de- 
tailed, unclassified  data  for  some  undetermined  fu- 
ture use. 

5.  The  integrated  later  approach  is,  as  the  name  im- 
plies, a non-plan,  a philosophy  of  continuing  to 
develop  more  Independent  applications  and  "inte- 
grate them  later", 

6.  The  integrate  now  (or  "total  systems")  approach, 
provides  an  "instant  MIS",  integrating  all  ADP  func- 
tions at  once.  This  is  the  approach  which  led  to 
the  reevaluation  of  MIS  in  the  late  1960's. 

Blumenthal  then  presents  his  own  philosophy,  with  which 
I am  in  general  agreement.  He  supports  a "bottom  up"  ap- 
proach combined  with  a systems  plan.  The  plan  can  be  consid- 
ered from  two  aspects;  global,  which  is  a "plan  of  projects" 
or  a framework  for  classifying  and  integrating  modules,  and 
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local,  which  consists  of  project  plans  or  modules.  Using 
this  format,  the  modules  are  developed  based  on  priorities, 
specifications,  and  integration  considerations  established  by 
the  "framework".  Modules  are  developed  to  support  operating 
level  management.  Their  "communication'.'  with  the  data  bases 
of  other  modules  is  assured  by  the  specifications  developed 
in  the  framework.  Selected  data  produced  by  the  modules  is 
copied  into  other  data  bases  foi*  use  by  higher  level  manage^ 
ment  based  on  Blumenthal's  concept  that  the  information  re- 
quired by  higher  level  management  is  a subset  of  that  pro- 
duced by  the  lower  level  modules. 

Blumenthal  also  describes  the  formal  activities  which 
should  be  accomplished  in  developing  a system.  These  ihcludei 
Proposal  study. 

Problem  definition,  priority,  and  budget  consideration. 
Formal  written  proposal. 

Initial  user  system  organization  assessment. 

Preparation  of  a feasibility  study. 

Presentation  of  the  feasibility  study  to  management. 
Assignment  of  project  responsibility,  allocation  of 
resources,  delegation  of  a steering  committee. 
Project  planning  and  control. 

Development  of  functional  requirements. 

Designing  of  system  specifications. 

Programming  and  testing,  and 
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Conversion  and  cutover. 

The  only  exceptions  to  this  formal  procedure  are  those  appli- 
cations which  are  obvious  minor  development  efforts  such  as 
"special  one-time  reports".  Most  organizations  with  a major 
data  processing  investment  utilize  the  concept  proposed  by 
Blumenthal  to  some  extent.  Unfortunately,  once  formal  proce- 
dures are  established  for  development  of  a system,  generally 
no  system,  no  matter  how  small,  can  be  developed  without  go- 
ing through  the  established  formal  organizational  procedures. 

The  preimplementation  criteria  are,  in  themselves,  costly 
enough  to  eliminate  all  but  major  systems  from  consideration. 

The  result  of  this  environment  is  that  the  required  strong 
economic  Justification  for  the  small  application  is  impossible, 
and  so  small  applications  tend  to  either  be  dropped  or  to 
mushroom  into  large  systems,  resulting  in  major  contracts 
and  extended  periods  of  time  for  implementation. 

The  purpose  of  this  paper  is  to  provide  an  alternative 
approach  using  Blumenthal 's  "Bottom  Up"  Theory,  but  based  on 
the  thesis  that  formal  procedures  are  not  always  necessary 
(may  be  accomplished  informally) ; that  requirements  do  not 
have  to  be  large  enough  to  justify  major  Investments  of  time 
and  resources;  and  that  an  organization's  information  require- 
ments can  evolve  in  an  open  ended  plan,  based  on  existing  in- 
formation resources. 


This  project  considers  the  management  Information  re- 
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quireroents  for  one  department  of  a college  located  at  a large 
university.  The  information  requirements  were  very  real,  yet 
probably  not  economically  justifiable  as  a large  project. 
Previous  attempts  to  design  information  systems  for  other 
colleges  in  the  university  had  either  failed  or  their  plan- 
ning had  dragged  on  over  an  extended  period  of  time  without 
realization  of  an  operational  system.  The  length  of  time  to 
implement  the  system,  the  inability  to  support  or  maintain 
it,  or  the  lack  of  a systemic  approach  to  building  a system 
to  meet  all  information  requirements  resulted  in  a general 
loss  of  interest  and  the  failure  of  these  systems  to  pro- 
duce satisfactory  results. 

The  system  described  by  this  project  was  developed  with 
a different  approach,  which  is  characterized  by  informal, 
though  systematic,  development,  and  includes  a generalized 
MIS  framevjork,  which  is  flexible  and  open  ended,  and  the 
first  module  of  the  system.  The  scenario  for  this  approach 
was  t 

1.  The  users  were  contacted  to  determine  what  Immediate 
information  requirements  existed,  and  the  general 
nature  of  possible  future  additions  to  the  system. 

2.  Personnel  of  the  computer  center  were  contacted  to 
determine  the  type  of  information  that  was  avail- 
able in  existing  data  bases  to  support  a system 
such  as  the  users  felt  they  needed. 
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3.  The  users  were  again  contacted  and  their  require- 
ments reappraised  to  make  the  maximum  use  of  avail- 
able data,  and  then  the  minimum  additional  data  re- 
quirements were  agreed  upon, 

4.  A major  system  was  conceptionalized  which  could  con- 
tain a number  of  interrelated  sub-systems. 

5.  The  subsystem  to  support  the  immediate  requirements 
was  designed,  coded,  and  implemented. 

The  system  uses  top  down,  structured,  modular  design 
and  programming  for  ease  of  maintenance;  and  was  designed  so 
that  it  can  be  run  using  existing  equipment  and  personnel 
resources . 

User  interest  and  enthusiasm  in  the  project  has  been 
maintained  at  high  level.  This  is  attributable  to  several  fac- 
tors. The  information  supplied  to  the  users  was  information 
they  needed  and  in  the  required  format.  The  time  for  develop- 
ment of  the  system  was  less  than  six  months,  during  which 
the  users  received  frequent,  informal  feedback  on  the  status 
of  the  project.  No  elaborate  justification  for  the  project 
was  required  of  the  users,  and  rather  then  enlarging  their 
requirements  to  justify  the  project,  they  were  able  to 
reduce  requirements  to  the  essential  data  that  was  needed. 

The  result  of  the  latter  was  that  the  system  was  able  to 
operate  using  existing  personnel  and  equipment  resources 
which  meant  that  the  users  did  not  have  to  divert 
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funds  from  other  projects  to  pay  for  this  system, 

I feel  that  this  concept  of  ADP  support  offers  a respon- 
sive alternative  to  organizations  which  have  MIS  formal  plan- 
ning and  design  criteria,  and  where j 

a)  the  information  requirements  are  valid, 

b)  the  information  requirements  are  such  that  a large 
expenditure  of  time  and  money  is  not  immediately 
Justifiable,  and 

c)  most  of  the  required  information  is  already  available 
in  existing  data  bases. 


Chapter  2 


SYSTEM  IMPLEMENTATION 
GENERAL  INFORMATION  ON  DEMIS  / SIS 

In  keeping  with  the  approach  described  in  Chapter  1, 
a flexible,  open  ended  framework  was  developed  for  the  Depart- 
ment of  Mathematical  Sciences  Information  System  (DEMIS). 

This  framework  is  graphically  illustrated  in  figure  1.  No 
detailed  specifications  were  made  for  the  proposed  modules  of 
DEMIS,  as  this  would  detract  from  the  flexibility  of  the 
system.  Generalized  contents  of  the  modules  are,  however, 
discussed  in  concept  in  Chapter  5. 

The  Student  Information  System  (SIS)  is  the  first  module 
of  DEMIS  to  be  Implemented,  and  is  designed  to  provide  infor- 
mation to  suport  management  and  counselling  activities  of  the 
Department,  SIS  has  been  constructed  using  contemporary  con- 
cepts of  modular,  top  down,  structured  design,  and  structured 
programming  techniques.  It  has  also  been  designed  to  re- 
quire minimum  operator  time,  training,  and  skill,  as  well  as 
minimum  maintenance. 

SIS  provides  useful,  required,  up  to  date  information 
for  the  Department  of  Mathematical  Sciences.  It  establishes 
a flexible,  expandable  student  data  base  and  a student  enroll- 
ment statistical  data  base  to  be  used  by  DEMIS.  It  also  pro- 
vides on  interface  for  receiving  data  elements  from  the  FTU 
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student  Record  Data  Base, 

SIS  BACKGROUND 

With  the  continuing  growth  of  student  enrollment  in 
the  Department  of  Mathematical  Sciences,  it  has  become  more 
and  more  apparent  that  certain  required  administrative  infor- 
mation pertaining  to  student  enrollment  is  not  readily  avail- 
able, or,  at  least,  not  available  in  the  required  format.  As 
a result,  frequent  time  consuming  searches  through  file  cab- 
inets containing  student  records,  or  through  the  numerous 
available  computer  printouts,  is  necessary  to  assemble  the 
required  data.  Some  of  the  more  pressing  information  re- 
quirements are  determining  the  number  of  students  majoring 
in  the  various  programs  offered  by  the  Department  of  Mathe- 
matical Sciences}  determining  the  number  and  names  of  students 
who  are  in  Post  Baccalaureate  Status  so  their  progress  toward 
achieving  provisional  or  regular  status  may  be  periodically 
reviewed;  providing  faculty  advisors  with  immediate  back- 
ground data  on  students  whom  they  advise  as  well  as  data 
concerning  their  overall  progress.  Often,  various  faculty 
advisor  listings  must  also  be  manually  modified  and  up  dated. 

These  problems  indicated  a need  for  an  Information 


system  within  the  Department.  DEMIS  was  developed  to  supply 
this  information. 
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SYSTEM  SPECIFICATIONS  FOR  SIS 

In  order  to  meet  the  requirements  stated  above,  the 
following  specifications  were  developed  of  SIS  (the  first 
module  of  DEMIS ) . 

1,  Outputs  of  the  system  will  include; 

A.  A roster  of  students  currently  enrolled  order- 
ed by  major,  level  of  study  (undergraduate, 
post  baccalaureate,  or  graduate)  and  alpha- 
betical by  name  (figure  2). 

B.  A roster  of  students  ordered  by  faculty  advisor 
(figure  3) . 

C.  Listing  of  student-faculty  advisor  assignments 
( figure  4) . 

D.  Listing  of  the  students  advised  by  each  faculty 
member  (figure  5). 

E.  A statistical  printout  which  shows  student  en- 
rollment at  quarter  intervals ( figure  6). 

2.  The  system  should  be  designed  so  that  it  can  be  oper- 
ated by  clerical  personnel  in  the  department. 

3.  Complete  documentation  is  required  for  maintenance 
and  modification  and  to  facilitate  the  addition  of 
other  modules  to  DEMIS. 

4,  Data  maintained  in  a Mathematics  Department  Data 
Base  should  be  minimal,  with  the  greatest  portion 
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of  required  data  extracted  from  the  FTU  Student  Re- 

oo2'Cl ij  . 

5.  The  system  must  operate  on  the  CFHDG  facilities, 

SIS  CONCEPT 

SIS  can  be  described  in  terms  of  three  general  (some- 
what simplified)  processes  as  shown  in  figure  7.  These  are: 
update  the  MATH-DATA-BASE  file;  load  the  SPIN-OFF  file;  and 
generate  reports. 

The  MATK-DATA-BASE  file  is  one  of  two  data  bases  main- 
tained by  the  Department  of  Mathematical  Sciences  (the  other 
Is  the  STAT-HI3T  file  which  is  discussed  below) . This  data 
base  contains  four  data  fields  for  each  student  record; 
faculty  advisor  name  and  SSN  (Social  Security  Number) , student 
attendance/status  data,  student  association  membership  data, 
and  the  student  SSN  which  is  used  to  k3y  the  student  MATH- 
DATA-B/vSE  record  to  the  FTU  Student  Record,  Additions, 
changes,  and  deletions  to  this  data  base  are  mad<;  using  punch- 
ed cards.  The  latter  are  read  into  a temporary  MATH-CHANGE 
file  where  they  are  sorted  and  then  merged  with  the  MATH- 
DATA-BASE  into  a temporary  MATH-REOHG  file.  This  is  then  read 
back  into  the  MATH-DATA-BASE. 

The  temporary  SPIN-OFF  file  is  loaded  with  selected  data 
fields  from  FTU  records  of  all  students  with  majors  of  COMP, 


SIS  OVERVIEW  DIAGRAM 
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MATH,  or  STAT  (an  alternate  method  for  loading  SPIN-OFF  with 
test  data  Is  also  provided).  Whenever  SIS  is  run,  it  retrieves 
the  SPTN-OFF  file  records  and  uses  the  data  to  construct  a 
temporary  STUD-DATA-BASE  file. 

When  a report  is  requested,  the  records  from  the  MATH- 
DATA-BASE  are  merged  into  the  STUD -BATA- BASE,  which  is  then 
sorted  on  various  combinations  of  keys  to  provide  the  request- 
ed reports.  V/henever  a statistics  report  is  requested,  a new 
set  of  current  student  enrollment  statistics  is  compiled  and 
added  to  the  STAT-HIST  file  before  the  report  is  generated, 

SIS  SYSTEM  DESIGN 

The  System  design  was  developed  and  Implemented  through 
use  of  IBM's  Hierarchy  plus  Input  Process  Output  (HIPO)  tech- 
nique for  system  design.  This  involves  the  use  of  system  spec- 
ifications (already  discussed) , a hierarchical  Visual  Table 
of  Contents  (VTOC)  (figure  8),  and  corresponding  Input- 
Process-Output  diagrams  (appendix  D) . 

Tiie  result  of  this  design  process  is  a modular,  struct- 
ured system  design,  as  indicated  in  the  VTOC.  Each  module  is 
•’called"  by  it's  higher  module  and,  in  turn,  calls  its  lower 
modules.  This  approach  has  greatly  simplified  the  design  pro- 
cess, It  also  facilitates  maintenance  and  changes  because  the 
appropriate  module  can  be  quickly  located,  and  usually 
any  changes  made  to  it  will  only  affect  its  "parent"  and 


The  number  of  sheets  per  pad  may  vary  slightly 


Common 

subroutines 


Other  DEMIS  sub- 
systems, when  added, 
are  numbered  3.0, 

4.0,  5.0... 


Gererate  stu- 
der:  ^reports 
GEi^-ti/^TE-HEPOfiTS  2.3 


Print 

subroutine 

FRINT-nTiy_4,l^ 


lerge  FTU  and  math 
lata 

ffiaOE-DATA.  ■ 2.3,1 


Jompute  and  print 
student  stat 
PSINT-3TAT  2.3.2 

I ( 


Print  stud 
reports 

PBINT-REPT  2,3.3 


“r? 


LEGEND 

Data  Movement 


Control  Flow 


^ Data  Reference 
Pointer 


, / I / ' ^ 


name 

3ubroutlne 


M i 

I-.—-  . 


Subroutine  Is  executed  and 
control  returns  to  next  step. 


22 


"offspring"  modules. 

The  Input-Process-Output  diagrams,  one  of  which  Is 
provided  for,  and  keyed  to  , each  module  In  the  VTOC , visual- 
ly and  naratively  describe  the  logic,  the  required  inputs,  and 
the  outputs  produced  by  each  module.  The  coding  was  produced 
so  that  each  module  is  implemented  in  a "section"  of  code 
which  can  quickly  be  identified  for  maintenance  purposes. 

Every  attempt  has  been  made  to  use  corresponding  terms 
In  the  VTOC,  the  Input-Process-Output  diagrams,  and  in  the 
coding. 

Close  coordination  has  been  made  with  personnel  at  the 
FTU  Computer  Center,  to  ensure  the  compatibility  of  DEMIS 
with  the  FTU  Student  Records  System  and  to  facilitate  the 
use  of  student  record  data  by  DEMIS. 

SIS  FILE  DESIGN 

The  files  used  by  SIS  Include  two  permanent  files,  five 
temporary  files,  and  a variety  of  utility  sort  flies.  The 
two  permanent  files  were  established  to  store  Mathematics 
Department  unique  data  (MATH-DEPT-STUD-DB)  and  student  enroll- 
ment data  (STAT-HIST-DB) . 

Prior  to  running  SIS  a temporary  file,  SPIN-OFF,  must 
be  loaded  with  certain  data  from  the  FTU  Student  Records 
(figure  9).  This  data  Is  placed  in  a temporary  STUD-DATA- 
BASE  file.  The  MATH-DEPT-STUD-DB  Is  then  merged  into  the 
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STUD-DATA-BASE,  to  provide  for  generation  of  the  required 
reports.  Each  time  new  enrollment  statistics  are  generated, 
they  are  added  to  the  3TAT-HI3T-DB  to  provide  a continuous 
record  of  enrollment  data. 

All  files  used  by  SIS  are  sequential.  The  decision  to 
use  sequential  files  was  made  based  on  consideration  of  the 
following  factors: 

a)  it  is  anticipated  that  large  volumes  of  data  will 
be  processed, 

b)  data  from  the  FTU  Student  Record  Data  Base  will  be 
sorted  in  sequence  of  SSN, 

c)  conversion  from  disk  to  tape,  if  required,  will  be 
facilitated , 

d)  data  must  be  repeatedly  sorted  on  different  keys  to 
produce  the  required  outputs, 

e)  MATH-DEPT-STUD-DB  is  stored  sequentially  by  SSN,  so 
that  change  data  can  be  placed  on  a file,  sorted 

on  SSN,  then  merged  with  the  MATH-DEPT-STUD-DB, 
and 

f)  numerous  and  frequent  changes  to  the  SIS  data 
bases  are  anticipated  which  makes  other  types  of 
files  (e.g.  ISAM)  inefficient. 

SIS  CODING 


DEMIS  was  coded  using  COBOL,  primarily  to  facilitate 
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interfacing  with  the  FTU  Student  Record  System  which  also 
uses  COBOL.  The  coding  has  followed  the  logic  of  the  HIPO 
system  design,  but,  of  course,  is  in  more  detail  and  Includes 
numerous  error  checking  routines  (appendix  A)  which  are  not 
reflected  in  the  HIPO  design  package.  In  other  cases,  where 
some  of  the  higher  level  language  charactlstics  of  COBOL  re- 
sult in  instructions  which  accomplish  a variety  of  actions, 
the  HIPO  diagrams  might  be  more  detailed  then  the  coding. 

Every  effort  has  been  made  to  use  the  self-documenting 
characteristics  of  COBOL.  Storage  areas,  variables,  file 
names,  paragraph  names,  and  section  names  are  written  in  a 
descriptive  way,  providing  hopefully  meaningful  mneumonlc 
names , 

Every  effort  has  also  been  made  to  provide  easy  to  under- 
stand logic  flow  throughout  the  program.  This,  coupled  with 
the  program  modularity,  should  facilitate  reading  of  the 
code.  Wherever  possible,  coding  has  been  designed  for  clarity, 
even  at  the  expense  of  efficiency.  Package  routines  and  other 
features  are  used  wherever  possible  (e,g,  COBOL  sort-merge 
feature  and  string  option) . 


Chapter  3 


USER  PilOCHDURES  FOR  SIS 

GENERAL 

SIS  has  been  designed  to  require  minimum  operator  train- 
ing and  involvement.  It  provides  a relatively  foolproof 
system  providing  the  procedures  listed  below  are  followed. 

Many  errors  in  keypunching  and  out  of  sequence  card  Input 
will  be  detected  by  SIS  and  a warning  message  provided.  Some 
errors,  however,  cannot  be  detected  by  the  system  (e.g.  SSN 
or  spelling  of  name,  address,  etc.).  Critical  data  should 
be  double  checked  by  the  keypunch  operator.  Of  particular 
importance  is  SSN  because  it  is  used  as  the  key  to  locate 
and  update  records  in  most  of  the  files. 

All  reports  can  be  obtained  vilthout  complete  MATH-DEPT- 
STUD-D3  records.  Report  formats  which  are  keyed  to  advisor 
SSN  will,  however,  be  affected  by  the  absence  of  faculty 
advisor  data  (this  is  further  explained  below). 

MAINTAINING  THE  MATH-DATA-BASE 

The  primary  task  of  operating  SIS  is  the  maintenance  of 
the  MATH-DEPT-3TUD-DB,  All  other  data  is  automatically  com- 
puted (l.e.  statistics)  or  is  provided  from  the  FTU  Student 
Record  Data  Base. 

Changes  to  the  MATH-DEPT~STUD-DB  refer  to  introducing 
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data  into  a student  record,  changing  or  deleting  data  In  a re- 
cord, or  deleting  an  entire  student  record.  These  changes  are 
accomplished  by  key  punching  and  Inputting  cards  in  ‘the  appro- 
priate format  (figure  10).  When  this  data  is  entered  Into  the 
computer,  a search  will  be  made  using  SSN  as  a key,  to  see  If 
a record  exists  for  that  particular  student.  If  one  does 
exist,  it  will  be  updated.  If  no  record  exists,  a new  record 
will  be  created  using  whatever  data  is  submitted. 

There  are  three  data  items.  In  addition  to  SSN,  which 
must  be  maintained  for  each  student;  faculty  advisor  (name 
and  SSN),  quarters  attended  FTU  and  status,  and  association 
memberships.  The  latter  two  items  are  for  information  only 
(l.e.  not  used  as  sort  keys)  and  their  absence  will  in  no  way 
affect  the  operation  of  SIS  (other  than  blank  fields  on  the 
printouts).  Incomplete  faculty  advisor  data,  however,  will 
change  the  output  formats  because  several  reports  are  keyed 
to  the  advisor  SSN.  All  students  without  an  assigned  faculty 
advisor. are  grouped  together  as  having  no  assigned  advisor. 

Building  the  NATH-DEPT-STUD-DB  will  be  a time  consuming 
process  and  it  is  recommended  that  the  data  be  phased  in 
starting  with  faculty  advisor  input. 

Sequencing  of  MATH-DEPT-3TUD-DB  card  changes  is  immater- 
ial. They  are  sorted  by  SIS  before  any  records  are  updated. 
There  is  no  need,  for  example,  to  place  two  changes  pertaining 
to  the  same  student  physically  together  in  the  group  of  MATH- 
DEPT-STUD-DB  changes. 
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RUNNING  SIS 

The  following  conditions  must  be  met  before  output  can 
be  obtained  from  SIS, 

1.  The  SPIN-OFF  file  must  be  created  from  the  FTU  Stu- 
dent Records, 

2.  The  MATH-DEPT-STUD-DB  file  must  have  been  created, 

3.  The  STAT-HIST  file  must  have  been  created. 

4.  SIS  must  be  catalogued. 

5.  The  execution  deck  must  be  loaded. 

The  SPIN-OFF  file  Is  created  by  the  FTU  Computer  Center. 
This  should  be  accomplished  as  soon  as  possible  after  the  start 
of  each  academic  quarter,  once  the  INDEX  field  of  all  FTU  stu- 
dent records  has  been  updated.  It  will  normally  require  sev- 
eral days  notice  for  personnel  at  the  center  to  create  this 
file. 

The  MATH-DEPT-STUD-DB  file  Is  permanently  stored.  How- 
ever, should  the  file  be  destroyed,  it  must  be  regenerated  be- 
fore SIS  will  work.  To  accomplish  this,  load  DECK  #3 
(appendix  E)  into  the  card  reader  and  verify  the  creation 
and  cataloging  of  the  file  from  the  printed  listing.  This 
will  recreate  the  MATH-DATA-BASE  file  without  student  data. 
Reloading  student  data  is  accomplished  by  rerunning  all  pre- 
viously run  changes  to  the  data  base.  In  the  same  sequence  in 
which  they  were  originally  run,  with  each  data  deck  separated 
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by  a card  with  an  In  column  ifl  (see  figure  11).  The  ef- 
fect of  this  procedure  Is  to  recreate  the  data  base  exactly 
as  it  had  been  previously  built.  The  old  change  cards  must, 
therefore,  be  saved  and  kept  in  a secure  location.  They 
form  a data  backup  for  use  in  case  the  MilTH-DEPT-3TUD-DB  is 
damaged  or  destroyed. 

The  3TAT-HIST  file,  like  the  MATH-DEPT-3TUD-DB,  is  a 
permanent  file.  If  it  should  be  destroyed  DECK  #4  (appendix 
E)  must  be  loaded  to  recreate  the  file  (without  data).  To  re- 
load the  data  into  the  file  there  are  two  alternate  procedures. 
The  first  is  to  recreate  the  history  data  as  discussed  in 
’’.Creation  of  STAT-HIST  Data  Base"  below.  The  second  is  to 
take  the  most  recent  printout  and  use  the  information  there 
to  complete  an  'H'  card  (figure  12)  for  each  quarter  in  which 
data  is  available.  The  latter  procedure  is  probably  the  best 
approach,  and  will  provide  a permanent  backup  deck.  The  back- 
up deck  may  then  be  loaded  with  the  next  SIS  run, 

SIS  is  permanently  catalogued  on  the  CFflDC  system,  how- 
ever should  it  be  destroyed,  it  may  be  recatalogued  by  loading 
DECK  # 2 (appendix  C), 

The  execution  deck  consists  of  several  items  (figure  13), 
which  must  be  in  proper  sequence.  DECK  //I  contains  the  in- 
structions which  call  SIS  to  execute  the  program.  This  must 
be  immediately  followed  by  a 'Y'  card  (figure  l4) , This 
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card  supplies  SIS  with  the  present  academic  year  and  quarter. 
Based  on  this  information  a search  of  student  records  pertain- 
ing to  that  quarter  is  made.  Failure  to  enter  a 'Y'  card  will 
cause  an  Immediate  termination  of  the  program.  Use  of  incor- 
rect data  on  this  card  will  cause  the  wrong  data  to  be  search- 
ed in  the  student  records,  with  undeterminable  results.  The 
•Y*  card  contains  four  characters.  The  first  character  is 
the  letter  'Y',  This  is  followed  by  three  numbers  represent- 
ing the  current  fiscal  quarter  (appendix  B) , A card  with  an 
•*'  in  column  1 must  follow  the  'Y'  card.  Failure  to  enter 
an  will  cause  the  first  MATH-DEPT-3TUD-DB  change  card  to 
be  ignored,  and  a message  to  this  effect  will  be  printed 
(appendix  A),  It  may  also  cause  damage  to  the  SPIN-OFF  file. 
The  next  items  in  the  deck  are  the  MATH-DEPT-STUD-DB  changes. 
They  may  be  in  any  sequence.  The  system  will  sort  them  prior 
to  posting  changes  to  the  MATH-DEPT-STUD-DB  records  (changes 
are  optional  when  SIS  runs).  An  •*'  must  follow  the  changes. 
Report  requests  (figure  15)  follow,  and  may  be  run  in  any 
sequence  (report  requests  are  optional). 

CREATION  OF  STAT-HIST  DATA  BASE 

The  'Y*  card,  as  mentioned  above,  indicates  to  SIS  which 
quarter  Is  to  be  searched  in  the  SPIN-OFF  file  (FTU  Student 
Data)  to  determine  current  enrollment  and  statistical  data. 


NOTE  DO  NOI  USE  THIS  FORM 
WHEN  ORDERING  NEW  OR  REVISED 
CARD  FORM  COMPOSITION 


n 


z 

cn  oe 

> o 

•z.  u. 

o 


Z 

o 


Q 

cc 

< 

O 

I 

UJ 


i5 

ii 


VO 


VO 

\ 


3 

O 

>- 


o 

o 

OS 


CO 

§ 

03 

03 

0 

Pli 

w 

01 

CO 

H 

C0| 


'T 


37 


To  access  data  from  previous  quarters,  the  'Y'  card  must  Indl- 
oato  the  quarter  for  which  data  lo  to  bo  collected.  Therefore, 
to  buijd  the  STAT-HI3T-DB  file,  successive  runs  of  SIS  must 
be  made,  starting  with  the  first  quarter  (691)  up  to  the 
current  quarter.  The  quarters  are  listed  in  appendix  B. 

This  data  is  automatically  stored  in  the  STAT-HIST-DB  file 
and  printed  with  each  'C*  report  request. 

The  data  deck  required  to  build  the  STAT-HIST-DB  is 
shown  in  figure  l6. 

CHANGING  / DELETING  DATA  FROM 
THE  STAT-HIST  DilTA  BASE 

Statistical  data  stored  in  the  STAT-HIST-DB  file  may  be 
altered  or  deleted  by  using  an  'H'  format  card  (figure  12). 

To  add  new  data,  complete  the  card,  as  shown  in  figure  12, 
with  an  ’H*  in  column  1 and  numeric  data  (0-9)  completely 
filling  columns  2 through  32.  Failure  to  enter  data  as  re- 
quired will  cause  the  'H'  card  to  be  disregarded  by  SIS.  To 
delete  an  entry  from  STAT-HIST-DB  file,  enter  the  date  which 
is  to  be  deleted,  then  fill  columns  8 through  32  with  '0's, 

REPORT  FORMATS 

Report  formats  are  shown  in  figures  2 through  6.  The 
student  enrollment  report  (figure  6)  will  display  all  his- 
tory data  in  the  STAT-HIST-DB  file,  with  the  most  recent 
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STAT-HIST-DB 
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statistics  displayed  first.  A new  entry  will  be  made  to  the 
;3TAT-HI3T-PiJ  fllo  every  time  a 'C'  report  (figure  15)  is  re- 
quester. If  an  entry  already  exists  in  the  file  for  the 
quarter  indicated  on  the  'Y*  card,  the  new  data  which  is  gen- 
erated will  update  the  existing  entry. 

The  'H*  report  produces  two  sets  of  reports  (figure  2 
and  3) s a roster  of  students  currently  enrolled  by  major  and 
level  of  study,  and  the  same  data  grouped  by  faculty  advisor. 

The  'A'  report  (figure  5)-  provides  one  listing  for  each 
faculty  advisor  showing  the  students  he  advises.  Those  stu- 
ents  who  are  not  assigned  an  advisor  will  appear  on  one  list- 
ing, and  new  / temporary  advisor  names  may  be  manually  entered 
on  the  printout. 

The  'F'  report  (figure  4)  produces  a student-faculty  ad- 
visor listing  by  major  and  level  of  study. 

Ei-JROR  MESSAGES 

STS  incorporates  a number  of  error  checking  routines. 

When  an  error  is  detected,  a message  is  printed  out  to  advise 
the  user  of  the  problem,  what  action  SIS  has  taken,  and  in 
some  instances  what  further  action  the  user  should  take.  Once 
the  error  message  is  printed,  SIS  continues  to  execute  If  at 
all  possible.  It  is,  therefore,  essential  that  each  output 
produced  by  SIS  be  reviewed  and,  if  error  messages  occured. 
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corrective  action  should  be  taken  by  the  user.  To  this  end 
a complete  list  of  SIS  generated  messages,  along  with  appro- 
priate user  responses,  appears  in  appendix  A. 


Chapter  4 


MAINTENANCE  OF  SIS 

GENERAL 

Problems  arising  from  SIS  operation  should  be  easy  to 
Isolate  and  correct  using  the  documentation  provided  with 
this  package.  This  documentation  Includes  the  HIPO  package 
(figure  8,  appendix  D)  and  a listing  of  SIS.  Other  figures 
found  In  this  report  should  also  be  of  use  In  the  mainten- 
ance of  SIS, 

SIS  has  been  designed  In  a modular  fashion  In  the  anti- 
cipation that  additional  DEMIS  modules  will  be  designed  to 
interact  with  SIS  to  perform  other  functions.  Expansion 
of  the  MATH-DEPT-STUD-DB , provided  that  it  is  accompanied  by 
an  Identical  expansion  of  the  associated  sort  file,  will  not 
affect  the  operation  of  SIS.  All  data  transfers,  to  and  from 
the  data  base,  use  the  COBOL  MOVE  CORRESPONDING  option.  This 
option  has  been  used  so  that  the  locations  of  the  correspond- 
ing fields  within  the  sending  and  receiving  records  is  not 
critical.  This  principle  holds  true  for  modifications  in  the 
SPIN-OFF  data  received  from  the  FTU  Student  Records, 

For  testing  purposes,  SIS  incorporates  a procedure  for 
loading  the  SPIN  - OFF  file  using  card  input  test  data.  This 
date  Is  designed  to  be  input  in  card  form  using  the  format 
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described  in  figure  17.  This  data  is  provided  as  DECK  # 5 
for  future  use  and  when  used  should  follow  the  input  sequence 
shown  in  figure  18.  Should  additional  FTU  Student  Record  data 
be  required  by  SIS  or  new  DEMIS  subsystems,  it  may  be  simu- 
lated, for  test  purposes,  by  defining  additional  card  Input 
formats,  adding  additional  fields  to  the  description  of  the 
SPIN-OFF  file  and  its  associated  sort  file,  and  making  appro- 
priate changes  to  the  LOAD-FTU-DATA  section. 

Should  additional  MATH-DSPT-STUD-DB  fields  be  required, 
new  card  input  formats  must  be  defined  and  additional  fields 
added  to  the  KATH-DEPT-STUD-DB,  its  associated  sort  file,  and 
the  M/vTH-CHANGE  file.  The  program  sections  which  process  the 
MATH-DEPT-STUD-DB  must  also  be  appropriately  modified, 

SIS  - FTU  STUDENT  RECORD  INTERFACE 
A SPIN-OFF  file  has  been  temporarily  created  to  contain 
extracts  of  the  FTU  Student  Records  on  all  students  whose 
major  is  COMP,  MATH,  or  STAT.  Once  this  data  has  been  loaded 
into  the  SPIN-OFF  file  by  the  personnel  of  the  FTU  Computer 
Center,  it  is  available  for  use  by  SIS, 

The  format  and  data  required  for  the  SPIN-OFF  file  is 
as  shown  on  the  SIS  listing  (appendix  C)  as  the  SPIN-OFF-FD 
data  record.  The  fields  of  this  record  are  formatted  ex- 
actly as  the  corresponding  fields  in  the  FTU  Student  Record 
Data  Base  except  for  a '2'  prefix  for  each  field  descrip- 
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tlon  on  the  P’TU  Student  Record  format  (e.g.  'LAST-NAME'  of 
tho  SPTN-OPF-BEG  or  313  id  fcho  fooeivlng  field  pf  '2LA3T- 
NAKE'  of  the  FTU  Student  Record).  The  data  description  for 
the  required  FTU  Student  Record  Input  is  shown  In  figure  9. 

The  picture  description  and  length  of  all  SPIN-OFF  fields  are 
Identical  to  the  corresponding  record  formats  of  the  FTU 
Student  Record  Data  Base. 

TIME  PARAMETER  ADJUSTMENTS 

Periodic  reviews  should  be  made  of  the  time  limit  para- 
meters assigned  to  SIS  (both  CPU  and  I-O).  Should  the  actual 
run  times  exceed  the  present  limits,  appropriate  adjustments 
must  be  made  to  the  job  card  In  DECK  #1. 

HIPO  / SOURCE  LISTING  CORRESPONDENCE 

The  following  procedure  may  be  used  to  help  locate  a 
specific  area  of  SIS  where  a program  modification  Is  to  be 
made : 

1)  locate  the  area  In  question  on  the  HIPO  VTOC , 

2)  refer  to  the  I-P-0  diagram  whose  number  Is  referenced 
by  the  VTOC , 

3)  when  the  appropriate  I-P-0  diagram  Is  found,  locate 
the  reference  note  in  the  source  listing  for  that 
particular  I-P-0  diagram,  and 
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4)  read  the  code  to  locate  the  appropriate  coding  to  be 
modified . 

The  source  program  for  SIS  Is  available  at  two  locations. 
The  original  SIS  deck  Is  stored  in  the  Department  of  Mathe- 
matical Sciences  office.  The  source  listing  is  also  recorded 
on  magnetic  tape  in  the  CFRDC  PANVALET  system, 

FILE  MAINTENANCE 

Periodically,  SIS  should  be  reviewed  to  determine  if  the 
file  space  allocation  requires  modification.  Initially  SIS 
was  created  with  the  minimum  allocation  of  '’SPACE=(  THK , ( 1 , 1 ) ) ” . 
This  limit  should  cause  no  problems  in  executing  SIS.  As 
certain  data  bases  increase  in  size,  however,  inefficiencies 
may  develop  and  the  space  parameters  should  be  adjusted. 

The  sort  file  work  areas  used  by  SIS  have  space  para- 
meters of  "SPACE=(TRK(20) , ,CONTIG) ",  which  should  be  adjusted 
upward  if  the  sort  merge  routines  develop  problems  or  if 
they  appear  to  be  inefficient  due  to  an  Increase  In  the  length 
of  the  data  files.  The  first  indication  of  the  space  problem 
in  sorting  will  be  encountered  during  a sort-merge  of  the 
STUD-DATA-BASE.  Adjustments  of  these  space  parameters  require 
changes  to  JCL  cards  for  SORTWKOl ,S0RTWK02 , and  S0RTWK03. 


Chapter  5 


roTVtta  DisVishoi'nhNT  or  DuMio 

The  following  is  a very  generalized  "framework"  for  the 
future  development  of  DEMIS,  and  In  keeping  with  the  basic 
concepts  of  this  paper,  the  framework  should  remain  flexible 
and  open  ended.  Possible  additional  modules  of  DEMIS  are 
shown  in  figure  1 and  discussed  below.  Naturally,  before  under- 
taking the  development  of  a nevr  module  for  DEMIS,  the  design- 
er should  determine  the  system  requirements  and  specifications, 

A Student  Counselling  Module  for  DEMIS  would  offer  an  in- 
creased scope  of  the  counselling  feature  offered  by  SIS.  The 
counselling  module  could  provide  a degree  plan  for  students 
based  on  their  areas  of  Interest,  program  requirements,  trans- 
fer credits  and  other  appropriate  considerations.  It  should 
produce  a written  program  of  instruction  for  each  student,  with 
a copy  for  his  faculty  advisor. 

A Student  Scheduling  Module  might  receive  input  based  on 
data  made  available  by  the  Student  Counselling  Module,  a 
student's  program  requirements,  the  work  load  each  student  de- 
sires to  carry,  and  faculty  availability.  Projected  offerings 
and  a recommended  schedule  for  each  student  for  the  following 
two  or  more  quarters  could  then  be  made.  Such  a system 
would  help  optimize  class  sizes,  provide  an  orderly  sequence 
of  course  offerings  for  students,  bring  about  optimum  faculty 
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utilization,  reduce  faculty  workloads  and  could  possibly  re- 
nult  in  » tanfi:Lblo  raonltary  taavlnga  to  both  atudento  and  the 
school,  '^hc  facilities  for  computer  science  majors  (e.g.  com- 
puter facilities)  could  be  better  utilized.  Certain  program- 
ming courses  might, for  example,  be  concentrated  during  summer 
quarters  when  school  attendance  is  low.  During  the  remainder 
of  the  year  a more  balanced  schedule  of  programming  and  non- 
programming  courses  could  be  offered. 

The  FTU  Alumni  Association  is  currently  investigating 
the  development  of  a new  computerized  alumni  information 
system.  If  these  plans  are  realized,  the  data  bases  developed 
to  support  that  system  could  be  made  available  to  DEMIS,  Some 
of  the  Information  which  might  be  of  value  would  be  a periodic 
listing  of  alumni  and  the  type  of  jobs  they  hold.  This  would 
be  valuable  for  curriculum  development  and  counselling  and  could 
provide  feedback  to  faculty  so  that  adjustments  might  be  made 
to  the  approach  and  content  of  individual  course  offerings. 

The  result  could  be  dynamic,  "self  evaluating"  curriculum 
development  procedure  for  the  Department. 

A Departmental  Statistical  Summary  Module  may  be  design- 
ed to  provide  statistical  data,  primarily  from  other  DEMIS 
modules  and  data  bases,  for  management  use  within  the  depart- 
ment, Such  data  might  Include  student  enrollment,  faculty 


qualifications  and  specialties,  alumni  employment , evaluation 
of  the  "strengths"  of  FTU  students  (based  on  course  balance), 
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average  grade  evaluation,  and  other  similar  areas.  This  data 
could  be  used  to  support  management  decisions,  to  provide 
information  to  potential  students,  and  to  determine  qualifi- 
cations and  prerequisites  for  admission  based  on  the  profile 
of  a typical  successful  student.  The  information  provided 
by  this  system  might  also  provide  a profile  to  be  used  in  the 
selection  of  new  faculty  members. 

These  arc  some  modules  which  may  be  added  to  DEMIS  to 
increase  the  management  type  information  available  to  the 
staff  and  faculty  of  the  Department  of  Mathematical  Sciences. 

In  addition  to  supporting  activities  in  the  Department, 
several  other  benefits  can  accrue  from  development  of  DEMIS. 

The  design  and  construction  of  additional  modules  as  student 
projects  can  provide  an  excellent  opportunity  for  students  Inter- 
ested in  computer  business  applications,  and  specifically  man- 
agement information  systems.  The  experience  gained  in  devel- 
oping a production  system  cannot  be  matched  in  any  other  way 
and  can  integrate  the  formal  course  work  of  the  student.  It 
could  better  prepare  the  student  for  the  business  world  by 
providing  him  with  experience  and  confidence. 

Other  student  projects  might  be  realized  in  generalizing 
DEMIS  so  that  it  can  be  used  in  other  departments, 

CONCLUSION 


SIS  provides  student  Information  and  is  the  initial  module 
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of  DEMIS.  SIS  Is  designed  to  be  operated  with  a minimum  of 
timei  effort!  end  feeehnieal  expertine,  end  it  provideo  »ee» 
ful  data  to  support  administrative  and  student  advisement 
activities  within  the  Department  of  Mathematical  Sciences. 

The  approach  used  to  produce  DEMIS  is  a valid  concept  in 
MIS  development.  While  the  case  study  presented  in  this  paper 
pertained  to  an  educational  institution,  it  is  equally  applica- 
ble to  an  organization  with  existing  ADP  facilities  and 
sufficient  capacity  to  support  an  additional  MIS, 

The  generalized  flexible  framework  forces  consideration 
of  the  other  potential  modules  without  the  requirement  for  a 
formal  study  and  the  danger  of  delay  in  satisfying  immediate 
information  requirements.  It  also  prevents  the  danger  of  be- 
coming "locked"  into  a rigid  framework  which  will  not  provide 
the  flexibility  necessary  to  meet  rapidly  changing  information 
requirements . 

The  Implementation  of  individual  modules  creates  a quick- 
ly realizeable  goal,  and  can  produce  tangible  results  in  a 
short  period  of  time.  This  makes  this  approach  both  attrac- 
tive and  economical. 

The  Informal  procedures  to  implement  modules  can,  how- 
ever, be  dangerous.  Certainly  any  large  system  which  repre- 
sents a sizeable  and  costly  undertaking  should  meet  formal 
procedural  requirements  as  listed  in  Chapter  1. 
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Appendix  A 
ERROR  MESSAGES 


ERHOH  MESSAGES 


Th(3  ciTTor  tnosBtigoe  genorAbad  by  SIS  are  Itebed  below  in 
alphabetical  order  with  an  appropriate  user  response.  The 
more  significant  error  messages  generated  will  Include  an 
'*•  as  the  first  character  of  the  error  message.  Note  that 
where  the  message  Includes  the  comment  'THE  FOLLOWING  INPUT 
CARD  DISREGARDED j (CAflD  TEXT)  ' that  the  referenced  card  has 
been  completely  Ignored  by  SIS. 

01  MSG:  ATTENDANCE  DATA  ENTRY  TO  BE  DELETED  NOT  FOUND.  THE 
FOLLOWING  INPUT  CARD  DISREGARDED:  (CARD  IMAGE) 

User  Response » A request  was  made  to  delete  an 
attendance  data  entry,  and  the  entry  could  not 
be  found.  Check  for  the  correct  S3N  on  Input  cards, 
check  to  make  sure  that  column  1 has  the  correct 
code,  and  check  previous  listing  of  data  to  ensure 
that  the  entry  to  be  deleted  is  exactly  the  same  as 
on  the  listing.  The  listing  should  also  be  checked 
to  ensure  that  previously  entered  Incorrect  data 
is  not  on  the  record  (l.e.  an  inbeded  space  in  the 
data  string,  a leading  space  In  the  data  string,  or 
a missing  or  extra  character  In  the  data  string). 

If  the  Input  card  Is  Incorrect  make  appropriate 
changes.  If  an  Incorrect  data  string  Is  found  in 
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the  student  record  the  entire  data  field  must  be 
purged  using  a 'Z’  format  card  followed  on  the  next 
SIS  run  with  a 'Q'  format  card  with  corrected 
attendance  record  data, 

02  * CANNOT  DETERMINE  IF  (STUDENT  LAST  NAME,  STUDENT 
FIRST  NAME,  STUDENT  SSN)  IS  GRAD,  UG,  OH  PB  - IS 
NOT  INCLUDED  IN  STATISTICS. 

User  response i SPIN-OFF  file  does  not  show  the  level 
of  study  of  the  student  Indicated.  If  SPIN-OFF  file 
is  loaded  from  test  data,  an  error  is  probably 
present  in  the  test  data.  If  SPIN-OFF  file  is 
loaded  with  FTU  Student  Record  Data,  then  consult 
with  the  Data  Base  Administrator. 

Note  I Statistics  reports  will  not  Include  this 
student. 

03  MSG*  * CANNOT  DETERMINE  LAST  QHT  ATTENDED  FOR  (STUDENT 

LAST  NAME,  STUDENT  FIRST  NAME,  STUDENT  SSN).  CHECK 
SPIN-OFF  DATA  AND  CURRENT  QRT  INPUT. 

User  Response i SPIN-OFF  file  does  not  show  the  stu- 
dent Indicated  as  being  enrolled  in  the  quarter 
specified  on  the  'Y'  card  or  any  previous  quarter. 

If  SPIN-OFF  file  is  loaded  with  test  data,  an  error 
is  probably  present  in  the  test  data.  If  SPIN-OFF 
file  is  loaded  with  FTU  Student  Record  Data,  then 
check  for  Incorrect  data  on  the  'Y*  card.  If  'Y' 
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card  is  correct  consult  the  Data  Base  Administrator, 
Note i Statistics  reports  will  not  Include  this 
student . 

04  * CANNOT  DETERMINE  MAJOR  OP  (STUDENT  LAST  NAME, 
STUDENT  FIRST  NAME.  STUDENT  SSN)  DATA  NOT  INCLUDED 
IN  STATISTICS. 

User  Response » SPIN-OFF  file  indicates  that  the 
subject  student  is  not  a MATH,  COMP,  or  STAT  major. 

If  SPIN-OFF  file  is  loaded  with  test  data,  an 
error  is  probably  present  in  the  test  data.  If 
SPIN-OFF  file  is  loaded  with  FTU  Student  Record  Data, 
then  consult  with' the  Data  Base  Administrator. 

Note ; Statistics  Report  will  not  Include  this 
student . 

05  MSG:  CANNOT  LOCATE  RECORD  TO  BE  CHANGED  FOR  SSN  (SSN  FROM 

INPUT  CARD)  THE  FOLLOWING  INPUT  CARD  DISREGARDED: 
(CARD  IMAGE). 

User  Response ; A request  was  made  to  delete  or  alter 
data  in  a student  record  in  the  MATH-DATA-BASE, 
probably  with  card  format  'Z',  'X',  or  'D'.  The 
SSN  on  the  change  card  did  not  match  any  record  in 
the  MATH -DATA-BASE,  and  so  SIS  could  not  make  the 
correction.  Cheek  for  proper  code  in  column  1 of 
the  change  card,  or  for  Incorrect  SSN  in  columns 
2-10. 
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06  M3G:  ENTRY  TO  BE  DELETED  NOT  FOUND  IN  STATISTICS  HIST 
FILE  THE  FOLLOWING  INPUT  CARD  DISREGARDED « (CARD 
TEXT) 

User  Response  t An  'H’  change  to  delete  an  entry  In 
the  Statistics  History  file  was  made,  and  SIS  could 
not  locate  the  entry  to  be  deleted.  Check  the  date 
on  the  input  card  with  a current  listing  for  cor- 
rectness, check  the  'H'  card  format  to  ensure  that 
the  correct  data  is  in  columns  2 through  7 of  the 
input  card.  If  an  addition  was  to  be  made  to  the 
Statistics  History  file,  check  for  zeros  incorrectly 
filling  columns  8 through  32  of  the  input  card. 

0?  MSG;  * EXPECTED  BUT  DID  NOT  FIND  * TO  INDICATE  END  MARKER 
FOR  SPIN-OFF.  THE  FOLLOWING  INPUT  CARD  DISREGARDED; 
(CARD  TEXT) . 

User  Response;  If  SPIN-OFF  is  loaded  with  FTU  Stu- 
dent Record  Data,  the  first  two  input  cards  were  not 
a 'Y'  card  followed  by  a card  with  an  '*•  in  colvimn 
1,  As  a result,  the  SPIN-OFF  data  pase  has  been 
damaged.  Correct  the  Job  deck  and  rerun  SIS  after 
SPIN-OFF  has  been  reloaded.  If  SPIN-OFF  is  being 
loaded  with  test  data  Insert  an  after  the  test 
data  and  rerun  SIS. 

08  MSG:  * EXPECTED  TO  FIND  * AT  END  OF  MATH  CHANGE  CARD  INPUT 
FOUND  INSTEAD  THE  FOLLOWING  DATA  WHICH  IS  DISRE- 
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GAilDED:  * CARD  IMAGE  i (CARD  TEXT). 

User  Response!  A card  with  the  asterisk  in  column  1 
must  Immediately  follow  the  last  MATH-DATA-BASE 
change  card.  SIS  found  Instead  a character  which 
was  not  a change  request  nor  an  asterisk.  If  a 
card  with  an  asterisk  in  column  1 is  missing,  place 
one  in  the  DECK  (figure  13).  If  the  card  text 
Indicates  that  it  is  for  a MATH-DATA-BASt=^  change, 
check  the  card  format  for  correct  code  in  column  1, 
and  resubmit  change.  If  the  disregarded  card  was 
a report  request,  the  report  will  not  be  generated. 

09  MSDi  ILLEGAL  ENTRY  ON  HISTORY  ALTERATION  REQUEST.  THE 

FOLLOWING  INPUT  CARD  DISREGARDED:  (CARD  TEXT). 

User  Response t An  'H'  card  contains  illegal  data. 
Check  proper  format  for  'H*  card,  repunch  card  and 
rerun  SIS. 

10  MSG:  ILLEGAL  ENTRY  ON  REPORT  REQUEST.  THE  FOLLOWING 

INPUT  CARD  DISREGARDED:  (CARD  TEXT) 

User  Response : Column  1 of  the  input  card  contained 
a valid  character  to  generate  a report,  however 
other  extraneous  data  was  found  on  the  card.  Check 
the  input  card  for  extraneous  data  (if  it  is  a re- 
port request)  or  for  an  Incorrect  code  in  column  1 
(if  it  is  not  a report  request). 
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11  M3G«  ILLEGAL  ENTHY  ON  YEAR  AND  QUilHTEH  INPUT  CARD  THE 

FOLLOWING  INPUT  CAliD  DISHEGARDEDj  (CARD  TEXT) 

User  Response t 'Y ' card  contains  Illegal  data  In 
columns  5 through  80  and  was  out  of  place.  Prob- 
able cause  is  wrong  use  of  'Y'  In  column  1. 

Check  card  and  correct  data  in  column  1, 

12  MSGj  illegal  input  on  ADVISOR  INPUT  CARD  THE  FOLLOWING 

INPUT  CARD  DISREGARDED:  (CARD  TEXT) 

User  Response  1 'V  card  has  blanks  or  alphabetic 
characters  In  columns  2 through  10  or  numeric 
data  appears  In  columns  11  through  80,  Check 
•V  format  and  correct  the  card  (If  Input 
was  intended  to  be  a 'V  card)  or  check  for  an 
incorrect  code  in  column  1. 

13  MSG  I INVALID  CODE  IN  COLUMN  1 OF  INPUT  CARD.  THE 

FOLLOWING  INPUT  CARD  DISREGARDED:  (CARD  TEXT) 

User  Response : An  unauthorized  code  was  entered 
in  column  1 of  input  card.  Check  proper  format 
and  enter  correct  code  on  card. 

14  M^:  * INVALID  CURRENT  QUARTER  SPECIFIED  ON  INPUT  CARD  - 

PROCESSING  TERMINATING.  THE  FOLLOWING  INPUT  CARD 
DISREGAiiDED : (CARD  TEXT) 

User  Response  1 'Y'  card  contained  an  invalid  quarter 

code.  Check  quarter  code  list  (appendix  B)  for 
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correct  conversion  data,  make  correction  and  rerun 
SIS. 

15  MSGj  invalid  ssn  on  input  card,  the  following  input 

CARD  DISREGARDED*  (CARD  TEXT) 


User  Response  t Check  input  card  SSN  for  blanks  or 
non-numeric  data  in  columns  2 through  10. 

16  MSG:  MEMBERSHIP  ENTRY  TO  BE  DELETED  NOT  FOUND.  THE  FOL- 

LOWING INPUT  CARD  DISREGARDED*  (CARD  TEXT) 

User  Responses  * A request  was  made  to  delete  an 
association  membership  entry,  however  the  entry 
could  not  be  found.  Check  for  correct  SSN  in 
columns  2 through  10  of  input  card,  then  ensure 
that  the  data  to  be  deleted  is  exactly  the  same  on 
both  the  input  card  and  a current  listing.  Check 
to  make  sure  that  the  correct  code  was  entered  in 
column  1 of  the  input  card. 

17  M^«  **  MISSING  OR  OUT  OF  SEQUENCE  CURRENT  QUARTER  CARD 

PROCESSING  TERMINATING  THE  FOLLOWING  INPUT  CARD 
DISREGARDED*  (CARD  TEXT) 

User  Response » 'Y'  card  was  not  found  as  the  first 

card  of  the  Job  deck  as  required.  SIS  has  been 
aborted.  Check  Job  deck  for  proper  placement  of 
•Y'  card,  then  rerun  SIS. 

18  MSG*  * NO  INPUT  FROM  STUD  DATA  BASE. 

User  Response  * While  attempting  to  generate  a 
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report,  SIS  found  no  data  in  the  STUD-DATA-BASE. 
Probable  cause  Is  no  data  In  SPIN-OFF  file.  If 
SPIN-OFF  is  loaded  with  test  data,  ensure  that 
Input  deck  Is  correctly  formatted,  then  rerun  SIS. 

If  SPIN-OFF  is  loaded  with  FTU  Student  Record  Data, 
then  ensure  that  the  first  two  cards  of  the  Job  deck 
contain  a 'Y'  card  Immediately  followed  by  a card 
with  an  In  column  1.  If  not,  SPIN-OFF  file 
has  been  damaged,  and  It  must  be  reloaded  before  SIS 
Is  rerun.  If  the  Job  deck  Is  correct  then  attempt 
to  rerun  SIS.  If  the  same  error  message  is  gen- 
erated, consult  with  the  Data  Base  Administrator. 

19  MSG«  * S3N  (3SN  OF  STUDENT)  NOT  FOUND  IN  FTU  SUPPLIED 
DATA.  VERIFY  SSN. 

User  Response » A student  listed  in  the  MATH-DATA- 
BASE  (by  SSN)  cannot  be  located  in  SPIN-OFF  file. 

If  SPIN-OFF  Is  loaded  with  test  data,  Indorrect 
test  data  Is  the  probable  cause.  If  SPIN-OFF  is 
loaded  from  FTU  Student  Record  Data,  then  verify 
the  correctness  of  the  student's  SSN  in  the  MATH- 
DATA-BASE.  If  the  student  Is  a COMP,  MATH,  or 
3TAT  major,  then  consult  with  the  Data  Base 
Administrator,  Note t Statistics  report  will 
not  Include  this  student. 
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62 


Aj^pendlx  B 

Current  Quarter  Codes 
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Academic 

Current  Quarter  Code 

3oquentlal 

Quapfcei* 

Recognized  by  SI3 

Quarter 

F68 

691 

01 

w69 

692 

02 

S69 

693 

03 

U69 

694 

04 

F69 

701 

05 

W70 

702 

06 

S70 

703 

07 

U70 

704 

08 

F70 

711 

09 

W71 

712 

10 

371 

713 

11 

U71 

714 

12 

F71 

721 

13 

W72 

722 

14 

372 

723 

15 

U72 

724 

16 

F72 

731 

17 

W73 

732 

18 

S73 

733 

19 

U73 

734 

20 

F73 

741 

21 

W7^ 

742 

22 

374 

743 

23 

U74 

744 

24 
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Academic 

Current  Quarter  Code 

Sequential 

HasagniBdd  tsy  aia 

Quarter 

P74 

751 

25 

W75 

752 

26 

S75 

753 

27 

U75 

754 

28 

F75 

761 

29 

W76 

762 

30 

376 

763 

31 

U76 

764 

32 

F76 

771 

33 

W77 

772 

34 

S77 

773 

35 

U77 

774 

36 

F77 

781 

37 

W78 

782 

38 

378 

783 

39 

U78 

784 

4o 

Appendix  C 
SIS  LISTING 

(LISTING  IS  EXTERNAL  TO  THE  BOUND  REPORT) 
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Appendix  D 

HIPO  INPUT-PROCESS -OUTPUT  (I- 


-0)  DIAGRAMS 
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(FOR  CREATION  OF  3TAT-HI3T-DB  FILE) 


(TEST  DATA  USED  TO  SIMULATE  SPIN-OFF  FILE  ENTRIES) 


I 


SPIN-OFF  TEST  OaTA 


n 1 11 1 1 11 1 ppter  = On  OSCAR  A I7n?7l  lAnnn  -ii 

Pllllllllioo  OI.IJES  street  0VII)4  FLR««fl  nnS74 ! fls?3 

3111111111111  Rl.v/0  NEW  ORLEANS  I.ASSSSS 

41  1 1 1 1 1 1 1 1 000(1  0003  OAOH  ORl?  131S  162'i  P12S  P'SPR 

A 1 1 1 ?23'i33<n>»«*  0003  0408  OQIP  131S  162o  212S  ?h29  3 t 3 S a »<» « « o <nnnnnn> * oou 

I 1 1 1 223333  lORC-PM'-'EN  OSCaR  6 1 790 7 1 1 3RQ  1 <2 

II  2345'S7Sq  lONPS  JOHN  P 6 1 79 0 7 1 1 388 0 ' 1 

4 1 P3/»SiS7Spo<n>0(>  0003  0408  091?  131S  1824  2125  ?h?9  3 1)  3 (S o oo ■» 4 »«(>«■  <>«■« «■  oo-ttoo « -innnnj 
?1 2348879944  phtt^RECK  WAY  TaMpa  F L 3 2SS6 3 ^5 7 7 4 7 S 32 

13123488  78928  SH.iRE  OR  I VF  ShFEPSHFAH  hay  NYU  112 

1 1 832831768TFRIT  ROGER  WILLI  8 0 7 0 1 7 024  0 0 0 >i2 

;>1532833781  298  ROvAL  UTRKOALE  ROCKLEOGF  FL  329883  0S63  M 1 84 

31  83283878421  forth  STREET  ET  lOJOFROOI.E  E|  33012 

4^93^9307^  0000  0008  0809  1 013  141  7 1 9 2 1 1 2 2 2 S 4 -innnt  4 <nn>  9 «•  44  (nnnnnnnnj  «•  4 4 ■»  « «■  <nnnn> « 

4222222?2?444o<>  0003  n4('8  0912  1 318  1820  2128  2829  3o 3844444<M>4<n»4-»«.-in>4e«nnnnn} a 

1 2?222?722‘i'NT  < KAPL  3 1 702  7 n 1 2444M  1 

1 222334444WA8HI  vGTON  GEORGE  C 8 1 79n7 1]  3998  •<  1 


1 1 1 1 223333  IORGP-- 
1 1 23488789 JONPS 


6179071 13991  <2 
61  7907  1 1 3888  <1 


1 2?222?722‘i'NT  < 

1 222334444WA8HI vGTON 


317027412444^1 
81  79471  13998U 


422?  334444444aa  0003  0408  0912  1 318  1824  2128  2629  34  3844a4a4aaa44aa«aaaa44a4a-! 


2?2?334444  I I 1 WASHINGTON  AVE  WASHINGTON  OC 78 76 78 0 0 78 8 1 9 78 

32223344441800  PENN  AVE  WASHINGTON  0C78778 

483338333344a4a  0003  0408  091?  1318  1824  2128  2829  3 4 3844aaa44a a4a»a444aaaaaao4 
1 333333333SMITH  HETTY  JONSS  3 1 702  7 1 1 322‘;E  1 

?333333333  1?  SHORT  STREET  Flag  CITY  EL 3 3384 3 0 8886 7858 

33333337334?  temple  avenue  tempi  E TX88983 

4333448S5S44aaa  0003  0408  0912  1318  1620  2128  2829  34 364aaaaa»aa4a«a«a4aaa4aaa4 
1 3334488887EW('hoWSKI  PETER  AORIAN  8 1 7Q47 1 1 3888M2 

244444444488  APPLE  WAY  APPLE  OF  EYE  F L 7 7 78 8 30544 4 288 3 

944444444488  APPLE  WAY  APPLE  OF  EYE  El  77788 

4444444444  0000  0003  0408«4*4<>  1318  16204»<n>4  2829  30  3G»a  aaa  a aa  aaaa  a a a a a a»  a o 

j 1 444444444APPI  ETON  MARY  CARLTON  4 0 7 0 1 7 1 1 288 8F 1 

444A886888»***4  0003  0408  0912  1318  1820  2128  2829  3o38aaaaaaaaaaaaaaaaaaaaaaaa 


1 444886886SHnE-iACHER 
4858858888»*»4«  0003 
1 8885588887IMMERMAN 


WILLIAM  B 517907113885M2 

04  0 8'»4''***««4**  182o*aaaa  2629  3o  3Gaaaaaaaaaaaaaa*aaaaaaaa« 
8ETH  ARNOLD  4070 1 7 1 1 2333'M 


4 888887777 a aaa a 0003  0408  0912  1318  182 A 2128  2829  3o38aaaaaaaaaaaaaaaaaaaaaaat 
1 S88887777I  rii  i ff  SHU  8 1 790 7 11  ?R99-.‘ 1 

4888888888aaaa<i  0003  0408  0912  1318  1820  2128  2829  3A38aaaaaaaaaaaaaaaaaaaaaaai 
1 888888888RRr)  • N ADOLPh  RONAI  D 4 0 70  171  12885*71 

1 888778nasCON jOv  MARY  ELLEN  8 0 7 0 1 7 1 1 3999E 1 

3G88774aQ8n2  I'.MES  STREET  ORLANDO  FL8854? 

?8IS8  7 78040  11  2 lA'IES  STREET  URLANOO  F 1.8884  2 3 0588  8 9838 

48887700 jqaaaaa  0003  0408  091?  1318  1820  2125  2829  3 n 38aaaaa aaa aaaaa aaaaaaa a aa< 
4777777777a a aaa  0003  0408  091?  1318  182 0 2128  ?829  3o38aaaaaaaaaaaaaaaaaaaaaaai 
1 777777777f3AXTER  JOHN  l)ENVFR  6070  1 7 1 1 388«m2 

1 777«8R999HAX TER  JIMMY  BUD  50 7 0 1 7 1 1 3988M 1 

377788999914  BRENT  ROAD  CHICAGO  IL3?584 


1 777777777BaXTER 
1 777«8R999BaX  TER 
377708999914  BRENT  ROAD 


6070171 13880M2 
507017113988M1 


IL3?584 


477700q999aaaaaaaaaaaaaaa  0912  1318  1820  2128  2829  3 O 38 a a a a aaaaaa a a a aaa a a a a a a a< 


?7770O999qPEn  1 

^POqqooqqqaaaaa  0 
1 flOflaoBOOflRGSPM 
pqOflPOOOORRF-'n  999 
OOpOHH.qoooRFD  999 


BUS  STOP  El? 

0003  0408  091?  1318  1820  2128  ?8?9  30 
SAMUAi. 

9 ORLANDO  El3 

9 ORLANDO  EL  3 


EL??2333o56889874 


80701 71 1399512 
EL324583058888745 
EL  32458 


40009q9999aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  2125  2829  3(l38aaaaaaaa'!taaaaaaaaaaaaaa< 


1 onoqqqcqgPE YN'Ol  OS 
^09099999983  TOBACCO  ROAO 
300099999988  CIGAR  WAY 
9999999999888  FIFTH  8TPEET 
1 q9Qgoq999BR0«N 
9999999099#,^,^  SIXTH  STREET 


RUWTRAND  R 
ORL ANOO 
HICK  town 
ORLANDO 
JOSEPH  DONALD 
Dallas 


50701711288801 

FL888443084442536 

CApqqqq 

el  123483083334444 

417017ni322?Ml 

TX99999 


14999999999  “oaoaaaaaa  0002  0308  0408  0 7 1 02 1 1 1 4 aaaa aaaaa aa aaaa a a aaaa aaaaaaa aaaaa< 


I 

? 


00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 


TOFNTIFICATION  niViSIOM. 

PPnGR4M-I0,  STUnFNT  JMFOMMATION  SYSTEM. 
AUTHOR.  ROGFR  W SIFRIT, 
installation,  FTU. 

OaTF-WRITTEN,  march  31»  197^,, 
OATF-COMPILEn,  JUN  3* 197ft, 

SFrURlTY,  THE  REPORTS  PROOUCEO  RY 
information  WHICH  IS  PERSONAL 

remarks. 


This  program 
IN  nature. 


CONTAIN 


i ( 

I c 
c 


00012 

90013 

00014 

00015 

00016 
00017 
oooia 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 


PNVIRONMFNT  DIVISION, 

configuration  section, 
source-computer,  IBM-360-^S, 

ORJECT-COMPUTER,  IBM-360-65, 

input-output  section, 

FII  E-CONTROL, 

SELECT  CARD-IN  ASSIGN  TO  UT-S-REAOEW. 

SELECT  PRINT-FILE  ASSIGN  TO  UT-S-PROUT, 

SELECT  math-change  ASSIGN  TO  UT-S-OISKCG, 

SELECT  SPIN-OFF  ASSIGN  TO  DA-3330-S-D1SKSPO, 

SELECT  STUD-DATA-PASF  ASSIGN  TO  DA-3330-S-DISKSDB, 

SELECT  STaT-HIST-DB  ASSIGN  TO  DA-3330-S-HISTOP , 
select  maTH-DEPT-STUD-DB  assign  to  DA-3330-S-DlSKMnH, 
select  sort-work-sob  assign  to  OA-3330-S-SORTWK01 , 
select  SORT-WORK-HOB  ASSIGN  TO  Da-3330-S-SORTWKO 1 , 

SELECT  INPUT-SORT-FILE  ASSIGN  TO  D A-3330-S-SORTWK0 1 , 

SELECT  SORT-WORK-SPO  ASSIGN  TO  nA-3330-S-SORTWK0 1 , 
select  MaTH-REORG  assign  TO  nA-3330-S-niSKMR, 

SELECT  HIST-REORG  ASSIGN  TO  DA-3330-S-OISKHR, 

I-O-CONTROL. 

Same  sort  area  for  sort-work-sob  sort-wopk-hoo  sort-work-spo 
input-sort-file. 


00035 

00ft35 


6o«35 


00040 

00041 
0004? 

00043 

00044 

00045 

00046 

00047 
O004fi 

00049 

00050 

00051 
0005? 

00053 

00054 

00055 

00056 

00057 
00055 

00059 

00060 
OOOfSl 
0006? 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 
0007? 

00073 

00074 

00075 

00076 

00077 
00«78 

00079 

00080 
00081 
0008? 

00083 

00084 

00085 

00086 

00087 

00088 
00089 


DIVISION. 


file  sfction. 


rn  C4RO-IN  LA8FL  9EC0P0  IS  OMITTED  RECORDINR  MODF  IS  F RECOPD 
CONTalNS  80  characters 
data  RECORDS  ARE  CPDF-CHECK* 

FTU-ATTFND-Qt  ALTFR-STaT-HIST-H*  ASSN-MRR-M.  mbR-DELETE  ” 
INDEX-4f  RASlC-OATA-1 ♦ PaRENTS-AOORESS-3 . STUD-ADDRFSS- 
fTU-aTTFND-DELETE-Z*  year-and-ouartfr-y.  advtsdr-v. 


01 

CODE-CHECK, 

0?  COOD 

oiC 

X <011  , 

0?  REST 

PIC 

X (79)  , 

01 

FTU-aTTFNO-Q. 

0?  filler 

PIC 

X (01 ) , 

0?  SSn 

PTC 

9(09) , 

0?  ATTEMD-DATA 

PIC 

X (70)  , 

01 

ALTER-STaT-HIST-h, 

0?  FILLFR 

PIC 

X (01 ) , 

0?  HIST-DATa, 

03  otr-h 

PTC 

9(03) , 

03  C0MP-U8 

PIC 

9(04) , 

03  COMP-RH 

PIC 

9(04) , 

03  C0MR-P8 

PTC 

9(04) , 

03  MATH-UG 

PIC 

9(04), 

03  math-gh 

PIC 

9(04) , 

03  maTh-pr 

PIC 

9(04) , 

03  STaT-IIG 

PIC 

9(04) , 

0?  fillfp-h 

PIC 

X (48) , 

01 

ASSN-M0R-M, 

0?  filler 

PIC 

X (01  ) , 

0?  SSN 

PIC 

9(09) , 

0?  mpR-daTa 

PIC 

X (70)  . 

01 

MRR-DELFTE-X. 

0?  filler 

PIC 

X (01  > , 

02  SSN 

PIC 

9(09)  , 

0?  ASSN-NAMF 

PIC 

X (70)  , 

01 

INDEX-4, 

02  filler 

PIC 

X(01  ) , 

02  SSN 

PIC 

9(09) , 

02  INDEX-DATA 

OIC 

X(70) , 

01 

BASIC-DATA-1 , 

02  FILLER 

PIC 

X (01  ) , 

0?  SSN 

PIC 

9(09) , 

02  last-name 

PIC 

X(18) , 

0?  frst-molf-name 

PIC 

X(30) , 

02  APPL-TYPF 

PIC 

9(01)  , 

0?  major-1 

PIC 

9(04) , 

0?  ftu-summary. 

05  ftd-last-otr 

PIC 

9(03) , 

05  FTU-GPa 

PIC 

9V999, 

02  SEX 

PIC 

X(01 ) , 

02  marital-status 

PIC 

9(01)  . 

02  FILLER 

PIC 

X (08) , 

I »v 


I 


OOOQO 

ni 

oaRENTS-ADOHESS-3. 

OOOOl 

0?  filler 

PTC  X (01 ) . 

0009? 

0?  SSN 

PIC  9(09)  . 

000Q3 

0?  KIN-STRFFT 

PIC  X(?0)  . 

0009* 

0?  KIN-riTY 

PIC  X(?0). 

0009*) 

0?  KTN-STaTE 

PIC  X(0?). 

00096 

0?  KIN-ZIR 

PIC  9(05)  , 

0009T 

0?  FILLER 

PIC  X(?3). 

00098 

01 

STUO-AnORESS-?. 

00O99 

0?  FILLER 

PIC  X(01)  . 

001  00 

0?  SSN 

PIC  9(09), 

OOlOl 

0?  home-strfft 

PIC  X(?0)  . 

0010? 

0?  home-city 

PIC  X (20)  . 

00103 

02  home-state 

PIC  X(0?). 

00104 

0?  home-zip 

PIC  9(05)  , 

001  O'? 

0?  HOME-PHOME 

PIC  9(10)  . 

00106 

0?  FILLER 

PIC  X(13), 

00107 

01 

PTM-ATTFNO-nELFTE-Z. 

001  08 

0?  FILLER 

PIC  X(01)  . 

00109 

0?  SSN 

PIC  9(09)  , 

00110 

0?  ATTENO-PaTA 

PIC  X(04), 

001 11 

0?  FILLER 

PIC  X(66), 

0011? 

01 

year-and-quarter-y. 

00113 

0?  EILLER 

PTC  X(01). 

00114 

0?  daTa-y, 

00115 

05  school-year 

PIC  9(02). 

001  16 

05  school-quarter 

PIC  9(01 ) , 

00117 

0?  EILLER-Y 

PTC  X(76). 

00118 

01 

AOVISOR-V. 

00119 

0?  filler 

PIC  X (01 ) . 

00l?0 

0?  SSN 

PIC  9(09) . 

001?1 

0?  AOVISOR-NAMP 

PIC  X(18)  . 

001?? 

0?  ADYISOR-SSN 

PIC  9(09), 

001?3 

0?  filler 

PIC  X(43). 

651?5 

rn 

math-change  label  rfcoro  IS  standarp  recording  mope 

001?6 

data  records  are  cooe 

-CHECK-M*  ETU-ATTENO-W.  ASSN-MRR 

00l?7 

mBR-OELETE-»<.  eTU-aTTFND-PELFTE-W.  APVISOR-W, 

001?8 

maTH-CHANGF-REC. 

001?9 

01 

CODE-CHECK-W, 

001  30 

0?  COMO 

PIC  X(01)  . 

00131 

0?  RFST-M 

PTC  X (79) , 

0013? 

00133 

01 

FTU-aTTFND-W, 

0?  FILLER 

0?  SSN 

PIC  X(01)  . 

00134 

PIC  9(09) . 

00135 

0?  attenp-oata 

PIC  X(70)  . 

00136 

01 

assn-mbr-w. 

00137 

0?  EILLER 

PIC  X(01)  . 

00139 

0?  SSN 

PIC  9(09) . 

001  39 

0?  mbr-oata 

PIC  X (70)  , 

00140 

01 

MBR-PELETE-M, 

00141 

0?  EILLER 

PIC  X(01)  , 

0014? 

0?  SSN 

PIC  9(09)  . 

00143 

0?  assn-name 

PIC  X(70), 

00144 

01 

ftu-attend-delete-w. 

00145 

0?  EILLER 

PTC  X(01) , 

A 


00146 

02  SSN 

PIC  9(09) . 

00147 

02  ATTENO-DATA 

PIC  X(04). 

00148 

02  FILLER 

PIC  X(66). 

00140 

01 

AOVISOR-W. 

00150 

0?  FILLPR 

PIC  X(01)  . 

00151 

02  SSN 

PIC  9(09)  . 

00152 

02  AnVlSOR-NAME 

PIC  X (18)  . 

00153 

02  advisoh-ssn 

PIC  9(09), 

00154 

02  FILL^iR 

PIC  X(43), 

00155 

01 

MATH-CHANfiF-REC. 

00156 

05  FILLFR 

PIC  X(01)  . 

00157 

05  SSN 

PIC  9(09)  , 

00158 

05  FILLFR 

PIC  X(70), 

001  60 

rn 

STUD-nATA-BASE  LARFL 

RECORD  IS  standard  RFCOPDING  MODE  IS 

00161 

oata  recorp  is  STUP- 

DB-REC, 

00162 

01 

STUD-P8-REC. 

00163 

02  LAST-NAMF 

PIC  X(18) . 

00164 

02  frst-molf-namf 

PIC  X(30). 

00165 

02  SSN 

“IC  9(09) , 

00166 

02  GRA0-U6-PP 

PIC  X(01) . 

00167 

02  major 

PIC  X (04)  , 

00168 

02  GPA 

PIC  9V999, 

00169 

02  SEX 

PIC  X(01) . 

00170 

02  GPAP 

PIC  X(01). 

00171 

02  ftu-last-otr 

PIC  9(03) . 

00172 

02  home-street 

PIC  X (20)  . 

00173 

02  HOME-CITY 

PIC  X(20)  , 

00174 

02  home-state 

PIC  X(02) . 

00175 

02  HOME-ZIP 

PIC  X(05). 

00176 

02  HOME-PHONE 

PIC  X(10)  , 

00177 

02  kin-street 

PIC  X(20), 

00178 

02  KIN-CITY 

PIC  X(20)  . 

00179 

02  kin-state 

PIC  X (02)  . 

00180 

02  KIN-ZIP 

PIC  X (05)  , 

00181 

02  maRITaL-STaTUS 

PIC  X(01)  , 

00182 

02  atteno-oata 

PIC  X (70)  . 

00183 

02  MBR-OATA 

PIC  X(70>, 

00184 

02  advisor-name 

PIC  X(18)  , 

00185 

02  APVISOR-SSN 

oiC  9(09)  . 

00187 

FD 

PRINT-FILE  LABEL  RECORDS  OMITTFO  DaTa  RECORD  IS  PRINT-LINF 

00188 

01 

print-ltne 

PTC  X(133)  . 

00190 

Fn 

SPIN-OFF  LABEL  RECORD  IS  STANDARD  RECORDING  MODE  IS  F 

00191 

DATA  RECORD  IS  SPIN- 

OFF-REC, 

00192 

01 

SPIN-OFF  -RE  C. 

00193 

02  last-name 

PIC  X(1R)  , 

00194 

02  fpst-molf-name 

PIC  X(30). 

00195 

02  SSN 

PIC  9(09)  , 

00196 

02  APPL-TYPE 

PIC  9(01)  . 

00197 

02  MaJOR-1 

PIC  9(04)  . 

00198 

02  FTU-SUMMARY, 

00199 

05  FTU-LAST-QTP 

PIC  9(03), 

c 


7 


00?00 

05  ftu-gpa 

PIC  9V999, 

00?01 

02  SFX 

PIC  X (01 ) . 

00202 

02  INDX 

PTC  X(?00), 

00203 

» 

05  GPn-IND 

PIC  X (01 ) . 

00204 

« 

05  STAfiT-SUR 

PIC  X (02)  . 

00205 

« 

05  ENO-SUP 

PIC  X(02) . 

00205 

02  HOME-STRFET 

PIC  X (20)  . 

00207 

02  HOWF-riTY 

PIC  X(20). 

0020fi 

02  HOME-STaTF 

PIC  X(02), 

00200 

02  HOME-ZIP 

PIC  X(05), 

00210 

02  HOME-PHONE 

PIC  X (10)  . 

0021 1 

02  KIN-5THFFT 

PIC  X (20)  , 

00212 

02  KIN-CITY 

PIC  X(20), 

00213 

02  KIN-STATE 

PIC  X(02), 

00214 

02  KIN-ZIP 

PTC  9(05)  . 

00215 

02  MaRITaL-STATUS 

PIC  X(01 ) . 

00217 

PO 

stat-hist-oh  label 

record  15  5TANDARD  RECORDING  MOnF  IS  F 

00218 

data  record  is  stat 

-REC. 

00219 

01 

stat-rec. 

PIC  9(03)  . 

00220 

03  QTR 

00221 

0 3 C0MP-IJ6 

PIC  9(04)  . 

00222 

03  COMP-GR 

PIC  9(04), 

002?3 

03  COMP-PB 

PIC  9(04)  . 

002?4 

03  MATH-liG 

PIC  9(04)  , 

00225 

03  MaTH-GR 

PIC  9(04)  , 

00226 

03  maTH-PH 

PIC  9(04)  . 

00227 

03  STAT-IJG 

PIC  9(04). 

00229 

00230 

50 

sort-mork-sob  recording  mode  is  f data  rfcord  is 
sort-sor-rfc. 

005*31 

01 

sort-sdb-rec. 

PIC  X(1R). 

00232 

02  Last-name 

00233 

02  FPST-MOLE-NAMF 

PIC  X(30). 

00234 

02  SSM 

PIC  9(09), 

00235 

02  GRA0-U6-PB 

PIC  X(01)  . 

00236 

02  major 

PIC  X(04). 

00237 

02  FTU-GPA 

PIC  9V999. 

00238 

02  SEX 

PIC  X(01). 

00239 

02  GRAD 

PIC  X(01) , 

00240 

02  FTU-LAST-QTR 

PIC  9(03) , 

00241 

02  HOME-STRFET 

PTC  X(20), 

00242 

02  home-city 

PIC  X(20), 

00243 

02  home-state 

PIC  X(02). 

00244 

02  HOME-ZIP 

PIC  X(05)  , 

00245 

02  HOME-PHONE 

PIC  X(10)  , 

00246 

02  kin-street 

PIC  X(20), 

00247 

02  KIN-CITY 

PIC  X(20). 

00248 

02  KIN-STaTP 

PIC  X(02), 

00249 

02  KIN-ZIP 

PIC  X(05), 

00250 

02  MARITAL-STATUS 

PIC  X(01), 

00251 

02  ATTEHO-DaTA 

PIC  X(70), 

00252 

02  MRR-DATA 

PIC  X(70), 

00253 

02  AnVISOH-NAME 

PIC  X(10). 

00254 

02  ADV1SOR-5SN 

PIC  9(09) , 

R 

09?56 

FO 

MaTH-DpPT-STUD- 

DR  LAPEL  RECORD  IS  STANDARD  RECORDING 

MODE  E 

00?57 

oata  recowo  is 

STUD-REC-M, 

00?5S 

01 

STUD-REC-M, 

005»5Q 

02  ATTENO-naTA 

PIC  X(IOO)  . 

00?60 

02  mrr-oata 

PIC  X (70)  . 

00?61 

02  SSN 

PIC  9(09)  . 

00?f.2 

02  advisor-name 

PIC  X(18)  . 

R0?63 

02  AOVrSOft-SSN 

ore  9(09) , 

6o?R5 

m 

hist-reoro  Label  record  is  standard  data  record  is 

30?6A 

HIST-RE0R6-REC. 

30267 

01 

HIST-REORG-REC. 

00268 

03  QTR 

PIC  9(03) , 

00269 

03  COMP-UG 

PIC  9(04). 

00270 

03  COMP-GR 

PIC  9(04). 

00271 

03  COMP-pb 

PIC  9(04)  . 

00272 

03  MATH-UG 

PIC  9(04), 

00273 

03  math-gr 

PTC  9(04)  . 

0027* 

03  math-pb 

PIC  9(04)  , 

00275 

03  STaT-UG 

PIC  9(04) , 

00277 

Sn 

INPUT-SOPT-FILE 

RECORDING  MODE  E DATA  RECORD  IS 

00278 

INPUT-SORT, 

00279 

01 

INPUT-SORT. 

66280 

05  FILLER 

PIC  X (01 ) . 

00281 

05  SSN 

PIC  9(09), 

00282 

OS  FILLER 

PIC  X(70)  , 

00284 

sn 

S0RT-40RK-MDR 

RECORDING  MODE  F OATA  RECORD  IS 

00285 

SORT-HOR-REC. 

00286 

01 

SORT-HOR-RFC. 

00287 

03  QTR 

PIC  9(03) , 

00288 

03  COMP-UG 

PIC  9(04) , 

30289 

03  COMP-GR 

PIC  9(04), 

00290 

03  COmp-PB 

PIC  9(04) , 

00291 

03  MATH-UG 

PIC  9(04)  , 

00292 

03  MATH-OP 

PIC  9(04) , 

00293 

03  math-pb 

PIC  9(04)  , 

00294 

03  STaT-UG 

PIC  9(04), 

00296 

50 

SORT-WORK-SPO  RECORDING  MODE  IS  E DATA  RECORD  IS 

30297 

SORT-SPO-REC. 

00298 

01 

SORT-SPO-REC, 

00299 

02  last-name 

PIC  X(18)  , 

00300 

02  FRST-MOLE-NAME  PIC  X(30), 

00301 

02  SSN 

PIC  9(09)  , 

00302 

02  APPL-TYPE 

PIC  9(01)  , 

00303 

02  MaJOR-1 

PIC  9(04), 

00304 

02  FTU-SUMMARY, 

00305 

05  ETU-LAST- 

OTR  PIC  9(03), 

00306 

05  FTU-GPA 

PIC  9V999, 

9 


00307 

00708 

00309 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 


00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 


00334 

00335 

00336 

00337 

00338 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 


02  SFX 

PTC 

X (01 ) . 

02  INOX 

PIC 

X (200)  . 

05  GRP-IND 

PTC 

X(01)  . 

« 

05  STaRT-SUB 

PTC 

X(02)  . 

« 

05  ENn-SUB 

PIC 

X(02) . 

02  home-street 

PIC 

X(20) . 

02  home-city 

PIC 

X (20)  . 

02  home-state 

PIC 

X (02)  . 

02  HOME-ZIP 

PIC 

9(05) . 

02  HOME-PHONE 

PTC 

9(10)  . 

02  KIN-STREET 

PTC 

X (20)  , 

02  KIN-CITY 

PTC 

X(20) . 

02  KIN-STaTE 

PIC 

X (0?)  . 

02  KIN-ZTP 

PIC 

9(05). 

02  marital-status 

PIC 

X (01 ) . 

rn 

math-reorg  label 

maTH-REORG-REC. 

RECORD  IS 

STANDARD  DATA  RECORD  IS 

01 

MATH-REOPG-REC. 

02  attenp-data 

PIC 

X ( 1 00) . 

02  MBR-PaTA 

PIC 

X (70) . 

02  SSN 

PIC 

9(09) . 

02  advisor-name 

PIC 

X(18) , 

02  APVISOR-SSN 

PIC 

9(09) . 

HDPKTNG-STORAGE  SECTION. 
77  err-msg-line 

PIC 

X(133)  VALUE 

SPACES. 

77 

WORK-AREAl 

PlC 

X (133) . 

77 

40RK-AHEA2 

PIC 

X(133) . 

77 

CURPENT-QTR-CODE 

PIC 

9(02)  . 

77 

CURRFNT-OTR 

pic 

9(03) . 

77 

CTR 

PIC 

9(10)  . 

77 

PTR 

PIC 

9(10)  . 

77 

math-changf-made 

PTC 

X(01)  VALUE 

*Y»  , 

77 

SUBSCRPT 

PIC 

9(10)  value 

IS  ZERO.  USAGE  COMP 

77 

headings 

PIC 

X(20) . 

77 

output-format 

PIC 

X (20)  . 

77 

BREAK 

PIC 

X(20)  . 

77 

DATE-RUPP 

PIC 

X (06)  . 

77 

YYMMDD 

temp 

PIC 

X(20) . 

•»»«  FPOOR  WARNING! 

77 

error-warning 

PIC 

X(18)  VALUE 

77 

break-status 

PIC 

X(03)  value 

• NO*  , 

SPACES. 

77 

KOOE 

PIC 

X(01)  VALUE 

77 

BREAK-l 

PIC 

X (04)  . 

77 

BREAK-2 

PIC 

X(01) , 

77 

BREAK-3 

PIC 

9(09) . 

77 

validity-indicator 

PIC 

X (07)  . 

77 

SSNUM 

OIC 

9(09)  . 

77 

qtr-bufp 

PIC 

9(03)  VALUE 

ZEROS. 

77 

delete-char 

PIC 

X(01)  VALUE 

SPACES. 

01 

recoro-rufe. 

02  ATTEND-DATA 

PIC 

X(IOO) . 

10 


0?  MqR-nATA 

PIC 

X (70)  . 

00^A3 

0?  SSM 

PTC 

9(09) . 

00364 

0?  anVl50H-MAMF 

PIC 

X ( 18)  , 

00365 

0?  AOVlSOrt-SSN 

PIC 

9(09). 

00366 

00367 

'’I 

FTli-LAST-QTW-FOIT. 

00363 

05  LAST-V9-ATT-EDIT 

PIC 

9(0?)  . 

00363 

05  FILLF3 

PIC 

X(01)  , 

00370 

01 

accumulators. 

00371 

03  COMP-UO 

PIC 

9(04) 

VAL<'F 

7ERO, 

0037? 

03  COi^P-PR 

PIC 

9(04) 

VALUE 

ZERO. 

00373 

03  COMP-P3 

PIC 

9(04) 

VALUE 

ZERO. 

00374 

03  CO^'PTOr 

PIC 

9(04) 

VALUE 

ZERO. 

00375 

03  MflTH-U3 

PIC 

9(04) 

VALUE 

ZFRO. 

00376 

03  MaTH-58 

PIC 

9(04) 

VALUE 

zero. 

00377 

03  MaTH-P8 

PIC 

9(04) 

VALUE 

ZERO. 

00373 

03  MaThTOT 

PIC 

9(04) 

VALUE 

ZERO, 

00373 

03  STAT-UG 

PIC 

9(04) 

VALUE 

ZERO. 

00380 

03  STATTOT 

PIC 

9(04) 

VALUE 

Zero, 

00381 

03  ToTSTljnS 

PIC 

9(04) 

VALUE 

Zero. 

0038? 

01 

fopmfr-stuo-hfad. 

00383 

05  FILLFR 

PIC 

X (39) 

VALUE 

SPACES, 

00384 

05  FILLFR 

“IC 

X (56) 

VALUE 

•not  CURRENTLY  ENROLL^ 

00385 

»D  RUT  LTSTFD  TN  maTh 

DFOT 

Data  r 

ASF*  , 

00386 

05  filler 

PIC 

X (38) 

VALUE 

spaces. 

00387 

01 

INnEX-CONVFRT, 

00380 

05  INOFX-OATA 

PIC 

X (70)  . 

00333 

05  FTLL^’R 

PIC 

X(130) 

Value  f ************ 

00330 

• 

1 «»«««#«««««««»»«««»»»««««« 

»«««««« 

««*««««»««*«*«»««»««**«»«»• 

00331 

01 

attfno-apway 

PIC 

X (1?0) 

• 

0033? 

01 

ATTEND-Tar  REOEFINFS 

ATTENC 

t-ARRAY 

• 

00333 

0?  otr-attfnd 

PIC 

X (04) 

OCCURS 

30  INDEXED  OY  0, 

00394 

01 

mrp-taR-FIFLD 

PIC 

X ( 100) 

• 

00395 

01 

MRR-TAR  redefines  mrp 

-TAR-FIELD, 

00396 

0?  MrR 

PTC 

X (10) 

OCCURS 

10  INDEXED  RY  M. 

00337 

01 

record-change. 

00393 

0?  filler 

PIC 

X (14) 

VALUE 

* STUDENT  S3N;  *, 

00399 

0?  SSN 

PIC 

9(09)  . 

00400 

0?  filler 

PIC 

X(16) 

VALUE 

• FIELD  changed:  *. 

00401 

0?  field-changed 

PIC 

X(l?)  . 

0040? 

02  nfw-data 

PIC 

X(3?)  . 

00403 

01 

STUD-REr-TFMP. 

00404 

0?  ATTEND-DaTA 

PIC 

X (80) 

VALUE 

SPACES, 

00405 

0?  MrR-DATA 

PIC 

X (70) 

VALUE 

SPACES. 

00406 

0?  SSN 

PIC 

9(09) 

VALUE 

ZEROS, 

00407 

0?  advisor-name 

PIC 

X(18) 

value 

SPACES. 

00403 

0?  AOVISOR-SSN 

PIC 

9(09) 

VALUE 

ZEROS. 

00409 

01 

TODAYS-DATE. 

00410 

0?  curpfnt-dayt. 

00411 

05  YY 

PIC 

9(0?) . 

0041? 

05  MM 

PIC 

9(0?) , 

00413 

05  on 

PIC 

3(0?)  . 

00414 

01 

MONTh-T AR-DAT A 

PIC 

X (36) 

VALUE 

* janeepmaraprmayjunjul 

00415 

• 

♦ AUGSEPOCTNOVDEC* , 

00416 

01 

MONTh-TAR  redefines  monTH-TAR-DAT 

A • 

00417 

0?  month-alpha 

PIC 

X(03) 

nrcuPS 

1?  times. 

00413 

01 

DATE-IN-PRTNT-FOPm, 

1. 


0041Q 

02  MONTH 

RIC 

X{03) 

• 

00*20 

02  F-ILLP9 

PIC 

X (01 ) 

VALUE 

SPACES. 

00*21 

02  no 

RIC 

9(02) 

• 

00*22 

02  FTLL5H 

PIC 

X (03) 

VALUE 

* 19*  . 

00*23 

02  YY 

PIC 

9(02) 

• 

00*2* 

00*25 

01 

OTR-CONVFRT-TAB. 

00*26 

05  FTLLFB 

PIC 

X (78) 

value 

: *6916926935947017027 

00*27 

— 

•370*711 7 1?71 371 *7?172?7?3724731 

7327337347417427437*4751 752* 

00*2fl 

05  FILLFR 

PIC 

X (60) 

VALUE  *7 

00*20 

• 

• 375*76 17h?76376*771 7727  7 3774  781 

782783784791792793794801802* 

00*30 

05  FTLLFR 

PIC 

X (60) 

VALUE 

• 8 

00*31 

m 

• 350*81 151281 381*821 fl2?«?382*831 

832833834841842843544851852* 

00*32 

05  FILLFR 

PIC 

X (60) 

VALUE  * 

00*33 

- 

* 355*86156288356*8715728  7387*581 

882883854891892893594901902* 

00*3* 

05  FILLFR 

PIC 

X (06) 

VALUE 

*903904* . 

00*35 

01 

(ITR-TAB  PEOFFTNES  OTR- 

CONVERT-TAB. 

00*36 

02  YR' 

-OTR  occurs  58  TIMES  ! 

INDEXED  BY  YO. 

00*37 

05 

OTR 

PIC 

9(03) 

• 

00*38 

01 

TNOEX' 

-array-load-ftfld 

PIC 

X (200)  . 

00*39 

01 

INOEX' 

-array  redefines 

INDEX- array-load-field. 

00**0 

02  INDEX-ENTRY  OCCURS 

*0  times. 

00**1 

05 

GRD-IND 

PTC 

9(01) 

• 

00**2 

05 

start-sub 

PIC 

9(02) 

• 

00**3 

05 

END-SUB 

PIC 

9(02) 

• 

00*** 

01 

PA6E-I 

HE AD-DFPT. 

00**5 

05  filler 

PIC 

X (49) 

VALUE 

spaces. 

00**6 

05  filler 

PIC 

X ( 35) 

VALUE 

•department  of  MATHEM 

00**7 

- 

•TICAL  SCIFNCES*. 

00**8 

05  filler 

PIC 

X (49) 

VALUE 

SPACES. 

00**9 

01 

TITLE-ROST. 

00*50 

05  FII 

LLER 

PIC 

X (**) 

VALUE 

SPACES. 

00*51 

05  TI 

TLE-LINE 

PIC 

X (46) 

• 

00*52 

05  FII 

PIC 

X (43) 

VALUE 

SPACES. 

00*53 

01 

STUD-' 

stat-hfao. 

00*5* 

05  filler 

PIC 

X (58) 

VALUE 

SPACES. 

00*55 

05  FILLER 

PIC 

X (18) 

VALUE 

•STUDENT  ENROLLMENT », 

00*56 

05  filler 

PIC 

X (57) 

VALUE 

SPACES. 

00*57 

01 

DATF-I 

HEAD, 

00*58 

05  FII 

LLER 

PIC 

X(61) 

VALUE 

SPACES. 

00*59 

05  OA 

TF-OUT 

PIC 

X(ll) 

• 

00*60 

05  FII 

PIC 

X (61 ) 

VALUE 

SPACES. 

00*61 

01 

STUD-1 

STAT-COL-HEAO. 

00*62 

05  filler 

PIC 

X (56) 

VALUE 

SPACES. 

00*63 

05  filler 

PIC 

X (19) 

VALUE 

•COMP  math  * 

00*6* 

05  FILLER 

PIC 

X(16) 

VALUE 

* stat  total*. 

00*65 

05  FILLER 

PTC 

X (42) 

VALUE 

SPACES. 

00*66 

01 

STUD-1 

stat-ungrad. 

00*67 

05  filler 

PIC 

X (41 ) 

VALUE 

SPACES. 

00*58 

05  FILLER 

PIC 

X (15) 

VALUE 

•undergraduate  *, 

00*69 

05  COMP-U(j 

PIC 

ZZ79 

VALUE 

zeros. 

00*70 

05  FII 

LLER 

PIC 

X (06) 

value 

SPACES. 

00*71 

05  M4 

TH-UG 

PIC 

Z279 

VALUE 

ZEROS. 

00*72 

05  filler 

PIC 

X(06) 

VALUE 

spaces. 

00*73 

05  STAT-Ur, 

PIC 

777.9 

VALUE 

zeros. 

00*7* 

05  FII 

LLER 

PIC 

X (06) 

VALUE 

SPACES. 

00*75 

05  TO 

T-UG 

PIC 

ZZZZ9 

VALUE 

zeros. 
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0047S 

05  FILLF8 

00*77 

01 

STUD-STftT-fiPAn. 

0047fl 

05  FILLF>? 

00*7<» 

05  PILL88 

00*80 

05  COMP-r,W 

00*81 

00*82 

05  FILLEP 

05  MATH-5P 

00*83 

05  FILLF5 

00*8* 

05  TOT-«R 

00*88 

05  filler 

00*88 

01 

STUO-STftT-TOT . 

00*87 

05  ftllfp 

00*88 

05  FILLFR 

00*88 

05  COMPTOT 

00*80 

05  FTLL8R 

00*81 

05  MaThTOT 

00*82 

05  FILLFR 

00*83 

05  STATTOT 

00*9* 

05  FILLF8 

00*85 

05  TOTSTUnS 

00*98 

00*97 

01 

05  FTLLFR 

STUD-STAT-PObT-RAC. 

00*90 

05  FI'.L'’R 

00*98 

05  filler 

00500 

05  COMP-PP 

00501 

05  FTLLFR 

00*'02 

05  maTH-or 

00503 

05  FIILFR 

0050* 

05  TOT-PR 

00505 

05  FILLER 

00508 

01 

arrR-namp, 

00‘=‘07 

05  LAST-NAMF 

00508 

05  frst-molf-namf 

00509 

01 

pac-aDV-hfao, 

00510 

05  FILLFW 

00^11 

05  FTLLFR 

00812 

05  FILLER 

00513 

05  FTLLFR 

0051* 

01 

fac-aov-col-head. 

00515 

05  FTLLFR 

00518 

05  FTLL8R 

00517 

05  FTLLFR 

00818 

05  FILLER 

00818 

05  FTLLFR 

00820 

01 

FAC-AOV-'TET-LI'OE, 

00821 

05  FTLL8R 

00822 

05  name 

00823 

05  FTLLFR 

00824 

05  advisor-name 

00825 

05  FTLLFR 

00828 

01 

AOVISEE-HEAn, 

00827 

05  FILLER 

00828 

05  FTLLFR 

00528 

- 

•tuoents  are  aovtsfes 

00830 

05  aovisor-name 

00831 

05  FTLLFR 

00832 

01 

ADVISEF-HEAn-ALT, 

PTC 

X (4?) 

VALUE 

SPACES. 

PIC 

X (41  ) 

value 

SPACES. 

PTC 

X ( 15) 

VALUF 

•GRADUATE  ». 

PIC 

7ZZ8 

VALUE 

zeros. 

PIC 

X (06) 

VALUE 

SPACES. 

PTC 

ZZZ9 

VALUE 

ZEROS. 

PIC 

X(16) 

VALUE 

spaces. 

PIC 

ZZZZ9 

VALUE 

ZEROS. 

PIC 

X (42) 

VALUF 

spaces. 

PTC 

X (41  ) 

VALUE 

spaces. 

PIC 

X(15) 

VALUE 

•total  ♦. 

PTC 

ZZZ9 

VALUE 

ZEROS. 

PTC 

X (06) 

VALUE 

SPACES, 

PIC 

ZZZ9 

VALUE 

ZEROS. 

PTC 

X (06) 

VALUE 

SPACES. 

PIC 

ZZZ9 

VALUE 

ZEROS. 

PIC 

X (07) 

VALUF 

spaces. 

PTC 

ZZZ9 

VALUF 

ZEROS. 

PIC 

X (42) 

VALUE 

SPACES. 

PTC 

X(41) 

VALUE 

SPACES. 

PIC 

X ( 15) 

VALUE 

•POST  RAC  •. 

PIC 

ZZZ9 

VALUE 

ZEROS. 

PTC 

X (08) 

VALUE 

SPACES. 

PIC 

ZZZ9 

VALUE 

ZFROS. 

PIC 

X (18) 

VALUE 

SPACES. 

PIC 

ZZZZ8 

VALUE 

ZEROS. 

PTC 

X (42) 

VALUE 

SPACES. 

PIC 

X(15) 

• 

PTC 

X(10) 

• 

PIC 

X (55) 

VALUE 

SPACES. 

PTC 

X(16) 

VALUE 

•EACULTY  advisor  •. 

PTC 

X (07) 

VALUF 

•LISTING^ . 

PIC 

X (55) 

VALUE 

SPACES. 

PTC 

X (47) 

VALUE 

spaces. 

PIC 

X (07) 

VALUE 

•STUDENT • . 

PIC 

X(21) 

VALUE 

SPACES, 

PTC 

X(15) 

VALUE 

•FACULTY  advisory. 

PIC 

X (43) 

VALUE 

spaces. 

PIC 

X(42) 

VALUE 

spaces. 

PTC 

X (25) 

• 

PIC 

X (07) 

VALUE 

SPACER, 

PIC 

X(ia) 

• 

PIC 

X (41 ) 

VALUE 

spaces. 

PIC 

X ( 10) 

VALUE 

SPACES. 

PIC 

X (45) 

VALUE 

•THE  FOLLOWING  NAMPQ  s 

OF  *, 

PIC 

X (18) 

• 

PIC 

X (80) 

VALUE 

SPACES. 

r 


r 


r 
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00S33 

05 

FILL*P 

PTC 

X(10)  VAL'IF 

SPACES, 

D0‘='34 

0* 

FTLLPR 

PTC 

X(73)  VALUE 

• the  EOLLO»ITNG  named  s 

00®i3S 

- 

•TUnrNT*  ftOF  AnVTSFF* 

0*  The  faculty  member  INOICATFD*. 

00*^36 

0* 

FILLER 

OTC 

X(*0)  VALUE 

SPACES. 

OOS37 

01 

CURHENT-OTR-PRTNT. 

OOHIS 

0* 

FILLER 

Ric 

X(6*»  VALUE 

SPACES. 

00'«39 

0* 

(3TR-PRINT 

PIC 

X(03)  VAL'IP 

SPACES. 

00*140 

0* 

FILLER 

pic 

X(6*)  VALUE 

SPACES. 

00S41 

01 

NAMF-lT'^F. 

00*142 

0* 

FILL** 

RIC 

X(01)  VALUE 

SPACES. 

00*43 

0* 

LaST-namf 

RIC 

X (18) . 

00*44 

05 

frst-mdlf-name 

PIC 

X (30)  , 

00*4^1 

0* 

FILLER 

PIC 

X(01)  VALUE 

SPACES. 

00*46 

0* 

5SN 

RIC 

9gqB99R9999H 

• • 

00*47 

0* 

GRAO-l)r,-PB 

PIC 

X(01) . 

00*48 

0* 

FILLFR 

PIC 

X(01)  VALUE 

*-•  . 

00*49 

0* 

major 

PTC 

X (04)  . 

90*S0 

0* 

FILLER 

RIC 

X(01)  VALUE 

spaces. 

00*61 

0* 

FTU-L AST-OTR, 

00**2 

06  LAST-YR-ATT 

PIC 

9(0?) . 

00**3 

06  LA*T-fJTR-ATT 

PIC 

X (01  ) , 

00*54 

05 

FILLER 

PIC 

X(01)  VALUE 

•/*  . 

00*** 

0* 

GPA 

PIC 

9,999. 

00**6 

0* 

FILLFR 

PTC 

X(10)  VALUE 

• ADVISOR:  ». 

00**7 

0* 

ahvisor-name 

PIC 

X ( 18)  , 

00**8 

0* 

FILLER 

RIC 

X(06)  VALUE 

* sex:  •, 

00**9 

0* 

SFX 

PIC 

X (01 ) . 

00*60 

0* 

FILLER 

PIC 

X(01)  VALUE 

spaces. 

00*61 

0* 

FILLER 

PIC 

X(l?)  VALUE 

• MARITAL  ST:*. 

00*6? 

0* 

marital-status 

PTC 

X (01  ) . 

00*63 

05 

filler 

PTC 

X(04)  VALUE. 

* GR: * . 

00*64 

05 

GRAB 

PIC 

X (01 ) . 

00*6* 

01 

AnOR-LINF. 

00*66 

0* 

FILLER 

PIC 

X(18)  VALUE 

• ADDRESS:*. 

00*67 

0* 

FILLFR 

PIC 

x(02)  value 

SPACES, 

00*68 

0* 

home-street 

PIC 

X (20)  . 

00*69 

0* 

FILLER 

PIC 

X(01)  VALUE 

SPACES. 

00*70 

0* 

HOME-CITY 

PIC 

X (20)  . 

00*71 

05 

HOME-STATE 

PIC 

RXXB. 

00*72 

0* 

HOME-ZIP 

PIC 

X(0*)  . 

00*73 

05 

FILLER 

PIC 

X(12)  VALUE 

* LOCAL  TEL:  *. 

00*74 

05 

home-phone 

PIC 

XXXRXXXRXXXX 

> • 

00*75 

0* 

filler 

PIC 

X(0a)  VALUE 

* MFMRR:  *, 

00*76 

0* 

MHR-OATA 

PIC 

X (31  ) , 

00*77 

01 

adhr-parcnt-line. 

00*78 

0* 

FILLER 

PIC 

X(15)  value 

spaces. 

00*79 

05 

FILLER 

PIC 

X(08)  VALUE 

•PARENT:  *. 

00*80 

05 

KIN-STREET 

PIC 

X (20)  , 

00*81 

05 

FILLER 

PIC 

X(01)  VALUE 

SPACES. 

00*8? 

05 

KIN-riTY 

PIC 

X (20)  , 

00*83 

0* 

KIN-STaTF 

PIC 

RXXB. 

00*584 

05 

KIN-ZIP 

PIC 

X (05)  . 

00*8* 

0* 

FILLER 

PIC 

x(63)  Value 

SoaCE*. 

00*86 

00*87 

01 

ftu-attn-line. 

00*88 

0* 

FILLER 

PIC 

X(3*)  VALUE 

* QTRS  ATTENDF 

00*89 

- 

»D 

FTU/STaTUS:  *. 

1 

1 


J 
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00*'90 

05  ATTENn-OATA 

00S91 

01 

WARNTN6-MSG, 

OOS9? 

05  FILLER 

00S93 

- 

•D  NOT  PROCESSED 

00S94 

05  filler 

00S9? 

'll 

advisef-oet-line 

00S96 

05  filler 

OOS97 

05  name 

OOS98 

05  FILLER 

PIC  X (70)  . 

PIC  X(40)  VALUE  » * WARNING;  INHUT  Caw 

PIC  X(QB)  value  spaces, 

PIC  X(10)  VALUE  SPACES, 

PIC  X(?S), 

PIC  X(98)  VALUE  spaces. 


C 

t 

c 
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00^00 

OOfOl 

00*^03 

00^03 

00ft04 

00<^05 

00^06 

00^07 

00^08 

0080<> 

00*^10 

00811 

00812 

00813 

00814 

00815 

00816 

00817 

00818 
0081<? 
00820 
00821 
00822 

00823 

00824 


*****  RfFFRENCP  HIPO  2,0  ***** 
procfoure  otvision. 

PERFORM  ACCEPT-OATF-FROM-SYSTEM, 

OPFN  INPUT  CARO-IN. 

READ  CARD-TN  at  end  RO  TO  EOJ, 

PERFORM  LOAO-CURREWT-OTR-DATa , 

IF  KOOF  = IT*  GO  TO  FOJ, 

REAP  CARD-TN  AT  END  GO  To  FOJ, 

PERFORM  LOAD-FTU-DATa  THRU  END-FTU-DaTA-SECTION, 

PF aO-CARD-LOOP, 

READ  CARD-IN  AT  END  GO  To  EOJ, 

PERFORM  CAPD-FORMaT-VERTFY, 

TF  VaLIDTTY-INDICaTOR  = iINVALin*  GO  TO  RFAO-CaRD-I  OOP, 

IF  COOO  = ‘R*  OR  IF*  OP  lA*  OR  ‘C* 

Perform  generatf-reports*  move  *ni  to  math-changf-made. 
IF  COOO  = *H*  perform  math-load-updatf, 

IF  COOO  a *VI  OR  *0*  OP  IZ*  OR  *Mi  OR  iX*  OR  *0* 

MOVF  *Y*  TO  math-changf-made 
perform  LOAD-MaTH-CHANGE-FILF  thru 
END-LOAD-MATH-CHANGE-FILF* 
perform  MATH-LOAO-UPDaTE, 

GO  TO  READ-CARD-LOOP, 

FO.I, 

CLOSE  CARD-TN, 

STOP  RUN, 


00826  ArrEPT-DATE-FPOM-SYSTFM, 

00827  ACCEPT  CURRFNT-DAYT  FROM  DATE. 

00828  MOVE  DO  OF  CURRENT-DaYT  TO  00  OF  O A TF- I N-PR I NT-FORm, 

00820  MOVE  YY  OF  CURRENT-DaYT  TO  YY  OF  OATF-In-PRTnT-FOR'', 

00830  MOVE  MONTH-ALPHA  (MM  OF  CURRFNT-DAYT)  TO  MONTH  OF 

00831  DaTE-IN-PRINT-FORm, 

00832  MOVE  OATF-IN-PRINT-FORm  TO  OATF-OUT  of  OaTF-HFAO, 


00834 

00835 

00836 

00837 

00838 

00839 

00840 

00841 

00842 

00843 

00844 

00845 

00846 

00847 

00848 

00849 

00850 

00851 

00852 

00853 

00854 


loao-current-otr-oata, 

IF  COOD  TS  NOT  equal  TO  lYi  THEN 

move  • **MISSING  OR  OUT  OF  SEQUENCE  CURRENT  QUARTER  CARD  p 
•ROCFSSING  terminating, I TO  FRR-MSG-LTNE 
perform  invalid-input 
MOVE  'T*  TO  KOOF 
GO  TO  FNO-CURRFNT-OTR-OaT A, 

MOVE  DaTa-Y  to  current-qtr, 

SET  YQ  TO  1. 

MOVE  1 TO  PTR, 

search  YR-QTR  varying  PTR 

AT  end  move  • * INVALID  CURRENT  OllAPTFP  SPEGIFIFn  ON  INPUT 
»CAPP  - PROCESSING  TERMINATING,*  TO  FPR-mSG-LINE 

pfrform  invalid-input 

MOVE  ‘T*  TO  KOOF 
GO  TO  END-CURRFNT-OTR-DATA 
WHEN  rUPRENT-OTR  IS  FQUAL  TQ  YR-QTR  (YQ) 

MOVE  PTR  TO  CURRENT-OTP-rOOE, 

OPEN  OUTPUT  PRINT-FILE, 

MOVE  SPACES  TO  PRINT-LINE. 

WRITE  PRINT-LINE  FPOm  CURRENT-OTR-CODF  AFTER  POSITIONING  3 
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00655  LINE5, 

00656  CLOSE  PPTNT-FILE. 

00657  FNn-CURRFNT-OTP-OATA,  EXIT, 


r 

t 


C 
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i 


00^59 

00660 

00661 

00662 

00663 

00664 

00665 

00666 
00667 
00666 

00669 

00670 

00671 

00672 


tmvalio-input  section, 

OPEN  OUTPUT  print-file, 
write  print-line  from  error-warntno 
after  positioning  3 LINES, 

WRITE  print-line  from  ERR-MSG-LINF 
after  positioning  2 LINES, 

MOVE  SPACES  TO  EPR-MSG-LINE, 

STRING  » THF  FOLLOWING  INPUT  CARO  DIRREGaROEO!  * CODF-CHErK 
OELIMTTEO  RY  Sl7E 
INTO  FRR-MSG-LINE, 

WRITE  PRINT-LINE  FROM  ERR-MSG-LINE 
after  positioning  2 LINES. 

MOVE  SPACES  TO  ERR-MSG-LINE, 

CLOSE  PRINT-FILE. 


( 

r 


f 


00#>74 

00^75 

00^76 

00677 

0067fl 

0047Q 

O06A0 

00661 

0066? 

00663 

00684 

00665 

00666 

00687 

00688 
00688 

00690 

00691 

00692 

00693 

00694 

00695 

00696 

00697 
00696 

00699 

00700 

00701 

00702 

00703 

00704 

00705 

00706 

00707 

00708 

00709 

00710 

00711 

00712 

00713 
0 0714 
00715 


r4on-FO«MAT-VFPIFY  SFCTION, 

rfoowt-rfoufst. 

MOVE  'VALin*  TO  VaLIOITY-INOTCATOB, 

TF  coon  » •9»  OR  *FI  OR  tAt  OR  »C* 

Then  TF  REST  IS  NOT  FQUAL  TO  SPACES  THEN 

MOVE  • illegal  entry  on  report  RFOUEST*  to  FRR-MSf.-LINP 

Perform  invalio-input 

MOVE  MNVALIO'  to  validity-inoicator. 

TF  COOD  » 'H* 

Then  TF  HIST-OaTA  IS  NOT  NUMERIC  OR  FILLER-H  IS  NOT  = * 
MOVF  t illegal  entry  ON  history  alteration  request* 

TO  ERR-MSG-LINE 
PERFORM  invalio-input 

MOVF  *INVALin*  TO  VALIOITY-INOICATOR, 

IF  COOD  = 'Y* 

Then  TF  OATa-Y  IS  NOT  NUMERIC  OR  FILLfR-Y  IS  NOT  = • * 
MOVE  • illegal  entry  on  year  and  quarter  input  CARD* 

TO  err-msg-ltnf 
perform  invalid-input 
move  'Invalto*  to  validity-indicator. 

TF  coon  S *1*  OR  *2*  OP  *3*  OR  ‘A*  OR  ‘V*  OR  *0*  OR  *0* 

OR  ‘Z*  OR  'M*  OR  *X* 

Then  TF  SSN  OF  RASIC-OATA-1  IS  NOT  NUMERIC  THEN 
MOVE  * INVALID  SSN  ON  INPUT  CARO*  TO  FRR-msG-LINP 
Perform  invalid-input 
MOVE  'INVALID*  TO  validity-indicator. 

TF  COOD  = *V* 

Then  tf  advisor-name  of  aovisor-v  is  not  alpha8*'tic 
OR  APVISOR-SSN  of  ADVISOR-V  is  NOT  NUMERIC 
move  * ILLEGAL  INPUT  ON  ADVISOR  INPUT  CARO*  TO 
ERR-MSG-LINE 
Perform  invalio-input 

MOVE  'INVALID*  TO  VALIDITY-INDICATOR. 

IF  COOD  s *♦*  GO  TO  FND-VFRIFY, 

IF  COOD  IS  not  equal  to  *R*  and  *F*  and  *a*  and  *0*  AND  *h* 
AND  *Y*  and  *1*  AND  *2*  AND  *3*  AND  *4*  AND  *V*  AND  *Q* 
AND  *n*  AND  *7*  AND  *M*  AND  *X'  THEN 
MOVE  'INVALID*  TO  VALIDITY-INDICATOR 
MOVE  * invalid  code  in  column  1 OF  INPUT  CARO*  TO 
erp-msg-linf 
perform  invalid-input. 
rNO-VERIFY, 
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00717 

OOTlfl 

00719 

00720 

00721 

00722 

00723 
0072* 
0072®i 

00726 

00727 

00728 

00729 

00730 

00731 
0073? 
00733 
0073* 

00735 

00736 

00737 

00738 

00739 
007*0 
007*1 
007*2 
007*3 
0074* 
007*5 
00746 


I 0^0-MATH-CMAN8F-FTLE  SECTION, 

OPFN  OUTPUT  MATH-CUANGF. 

PFAD-INTO-MATH-CHANGF, 

MOVE  SPACES  TO  COOE-C.HECK-W . 

MOVE  code-check  to  code-check-w. 

WRITF  COnE-CHECK-W. 

pfaO-CHANGE. 

READ  capo-in  at  ENO  GO  TO  ENO-LOAO-m aTH-CHANGF-F IL^ . 

PERFORM  CAPD-FORMaT-VERIFY. 

IF  VALiniTY-INDICATOR  = ’INVALID*  GO  TO 

read-change. 

IE  COOD  IS  equal  to  ’V’  OR  ’0*  OR  •?*  OR  *M*  OR  ’X*  OH  *D* 

Then  go  To  read-into-math-change. 

IF  CObO  IS  not  equal  to  *** 

THEN  OPPN  OUTPUT  PRInT-EILE 

MOVE  • * EXPECTED  TO  FIND  * AT  ENO  OF  math  CHANGE 

• ’CARD  INPUT  _ FOUND  INSTEAD  THF  FOLLOWING  DATA  WHICH  IS  DTSPP 
•GAPDEOt  • TO  PRINT-LTnE 

WRITE  print-line  AETER  POSITIONING  2 LINES 
STRING  f * CARD  image:  • CODE-CHECK  DELIMITED  “Y  SIZE 
INTO  PRINT-LINF 

write  print-line  aeter  positioning  2 lines 

CLOSE  print-file. 

CLOSE  math-change. 

MOVE  102*00  TO  SORT-CORE-SIZF 
SORT  INPUT-SORT-FILE 

ascending  key  ssn  of  tnput-sopt 

USING  math-change 
GIVING  MaTH-CHANGF. 

fno-load-math-change-filf.  exit. 


?0 


0074R 

00'^4«» 

00750 

00751 
0075? 


»«**•  REFFRENrE  HIPO  2,1  ***** 

MflTH-LOftD-UPOATE  SECTION, 

IF  GOOD  » *H»  THEN  PfPFOPM  STaT-HIST  THWU  EX  I T-ST A T-M T ST 
FLSF  OEPFORM  MERGE-MATH-OaTA  thru  ENO-mERGE-HATM-DATA, 
GO  fp  ENn-MATH-LOAO-UPOATF-SFCTlON, 


00754  MERGE-MATH-OaTA, 

00755  OPEN  1-0  MATH-nEPT-STUn-On, 

OO'^SG  OPEN  INPUT  math-change, 

00757  OPEN  OUTPUT  MATH-REORG, 

oo75«  move  spaces  to  MaTH-REORG-REC . 

0375P  READ  MaTH-CHANGE  AT  END  GO  TO  TR ANSFEP-REST-OF-M aTh-E I LE , 

00760  REAO  MaTh-OEPT-STUO-OH  AT  END  GO  TO  CLOSP-MATh-FILPS, 

00761  pereorm  inttialize-pecopo-buff, 

00762  IF  SSN  OF  MaTH-CHANGF-REC  < SSN  OF  STUO-PEC-M 

00763  Then  perform  CPEATE-maTH-REC*  perform  REAO-maTH-CHANGE 

00764  ELSE  mqvf  CORR  STUO-REC-M  TO  RFCOPO-BUFE*  PERFORM 

00765  RFaO-FILES-TO-RE-meRGEO, 

00766  GO  TO  COMPaRE-FOR-MEpGE, 


00768 

0076P 

00770 

00771 

00772 

00773 

00774 

00775 

00776 

00777 

00778 
0077P 

00780 

00781 
0078? 

00783 

00784 

00785 
00706 

00787 

00788 
00'^89 

00790 

00791 
0079? 

00793 

00794 

00795 

00796 

00797 

00798 

00799 

00800 
00801 
00802 


PFAD-EILFS-TO-PF-MERGFn, 

READ  MATH-nEPT-STUn-PB  AT  END 

perform  write-nfw-eiles-onlv 

GO  TO  close-math-files, 

rfap-maTh-change, 

REAP  maTh-chaNGE  at  ENp 

GO  TO  TPanSFER-REST-OF-maTH-FILE, 

compare-for-mepge, 

IE  SSN  OE  MATH-CHANGE-REC  » SSN  OF  RECORP-BUEE 

perform  upoate-math-rec*  perform  rfao-math-changf 
GO  TO  CPMPARE-EOR-MERGE, 

IE  PELETE-CHAR  is  not  = tp* 

Then  if  SSN  of  recorp-buff  is  not  * o 

then  white  MaTh-REORG-REC  from  RecpPP-PIIEF 
perform  INITIALIZE-PECOPD-BUEF 
ELSE  NEXT  SENTENCE 

ELSE  MOVE  SSN  OF  RECORP-BUFF  TO  SSN  OF  M A TH-PFORG-REC 
PERFORM  INITIaLIZE-RECORO-PUFF 

MOVE  SSN  OF  MaTh-REORG-REC  TO  SSN  OF  PECOPP-SUFF 
WRITE  MATH-BEORG-REC  FROM  RFCORP-BUFE, 

MOVE  SPACES  TO  PELETE-CHAR, 

IF  SSN  OF  MaTH-CHaNGE-RFC  = SSN  OF  STUD-HEC-M 
THEN  MOVE  CORR  STUP-REC-M  TO  RECORP-BUFF, 

perform  uppate-math-rec 
PERFORM  READ-MaTh-CHANGE 
PFRFORM  REAP-ElLFS-TO-BE-MFRGFr' 

ELSE  IF  SSN  OF  maTH-CHANGF-REC  > SSN  OF  STUP-REC-M 
then  MOVE  STUP-PEC-M  TO  RECPPP-BUEE 

WRITE  math-reorg-rec  from  RECORP-RUEE 

PERFORM  INITIaLIZE-RECORO-BUFF 
PERFORM  READ-EIlFS-TO-BE-MEHGEP 
ELSE  PERFORM  CRE aTe-MATH-REC 
PEREORM  REAP-maTH-CHANGE, 

GO  TO  COmPaRE-EOR-MERGE, 


I 

t 


00«03 

00*^04 

00«05 

OOROft 

00«07 

OOROR 

00R0<» 

OORIO 

OORll 

00R12 

00R13 

OOR14 

00R15 

OORlft 

00R17 

OORIR 

00R19 

00R20 

00R?1 

00R2? 

00R23 

0OR24 

00R25 

00R26 

00R27 

00R2fl 

00R29 

00R30 

00R31 

00R32 

00R33 

00R34 

00R35 

00R3ft 

00837 

O0R3R 


TMTTraL  rZF-»rC090-BUFF, 

MOVE  SPACFS  TO  RFCORO-RUFF » MOVE  ZEROS  TO  SSN  OF 

RFCORO-HUFFt  MOVE  ZEROS  TO  &OVISOM-SSN  OF  RFCORO-RUFF, 

iVPTTF-NEW-FlLES-ONLY. 

IF  SSN  OF  RECORO-RUFF  IS  EQUAL  TO  0 
THEN  PERFORM  CRFATE-maTH-RFC 

ELSE  IF  SSN  OF  RECOPO-BUFF  IS  EQUAL  To  SSNI  OF 

math-changf-rec 

TMFN  PERFORM  CRE aTF-MATH-RFC 
ELSE  WHITE  MATN-RFORG-PEC  FROM  RECORD-RUFF 
PERFORM  INITIALIZE-RFC0RD-RUFF» 

PERFORM  CREaTE-MATH-REC. 

RFAO  matm-change  at  fno  wrjtf  m a th-rforg-rfc  from 

RFCORO-PUFFf  GO  TO  CLOSE-MaTH-F IL^S, 

GO  TO  WRTTE-NFW-FTLES-ONLY, 

TRANSFER-REST-OF-MATH-FILE. 

IF  SSN  OF  RFCORD-BUFF  is  not  s 0 

then  TF  SSN  OF  RECORO-BUFF  = SSN  OF  STUO-RFC-M 
THEN  WRITE  MATh-RFORG-PEC  FROM  PECORD-RUFF 
PERFORM  INITIALIZE-RECORO-BUFF 
ELSE  WRITE  MfttH-REORG-PFC  FROM  RECORD-BUFF 
PERFORM  INITIALIZE-RECORO-BUFF 
WRITE  MATH-REORG-REC  FROM  STUD-REC-M 
ELSE  WRITE  MaTH-REORG-REC  FROM  STUD-REC-M. 

HEAD  MATH-nFPT-STUD-DR  AT  END  GO  TO  CLOSF-M4 TH-F ILFS , 

GO  TO  TRANSFER-REST-OF-MaTH-FTLF. 
close-math-filfs. 

MOVE  SPACES  TO  DFLETE-CHAR, 

CLOSE  MATH-DEPT-STUO-DB* 

math-change* 

maTh-RFORG. 

OPCN  input  math-rforg* 

OUTPUT  MATH-OEPT-STUO-OR. 


O0R40  TRaNSFFR-TO-maTH-OB, 

00R4I  READ  MaTH-PEORG  aT  END  GO  TO  ENO-MEROf-M aTH-DAT A . 

00R42  MOVE  SPACES  TO  STUD-REC-M, 

00R43  MOVE  ZEROS  TO  SSN  OF  STUD-REC-M*  MOVF  ZEROS  TO  ADVTSOR-SSN 

00844  OF  STUD-REC-M, 

00845  IF  SSN  OF  MaTH-REORG-REC  IS  NOT  EQUAL  TO  0 

00846  Then  write  STUD-REC-m  from  MATH-RFORG-REC. 

00847  GO  TO  TRANSFER-TO-MATH-DB, 

00848  pN^-MERGE-MATH-DATA, 

00849  CLOSE  MATH-REORG*  MATH-DEPT-STUD-DH , 


00851  *****  ppEfRENCE  HIPO  2,1.1  ***** 

00852  CRFaTE-maTH-REC, 

00853  IF  COWO  * *V»  MOVE  CORR  ADVISOR-W 

00854  TO  RFCORD-BUFF* 

00«55  ELSE  IF  COWD  = *0»  MOVE  CORR  FTU-ATTEND-W 

00856  TO  RECORO-BUFF* 

00«57  FLSF  IF  COWD  * ‘M*  MOVE  CORR  ASSN-MBR-W 


OQPSfl  TO  HfrORn-PUFF* 

OORSR  FLSF 

OOP60  STRING  • CANNOT  LOCaTF  HFrORD  TO  RF  CHANGFO  FOR  SSN  * 

oo«6i  SSN  OF  mhr-oflftf-w  dflimitfo  ry  size  tnto 

00R6?  FRP-MSG-LINF 

OOflF.3  MOVE  maTH-CHANOF-RFC  TO  COOF-CRECK 

OOR6A  PERFORM  I NV AL I 0- t NPUT , 


00R66 

OORftT 

00R68 

0088R 

00«70 

00R71 

00«7? 

00R73 

00R7A 

00875 

00876 

00877 

00878 
00«79 
00880 
00881 
00882 

00883 

00884 
00«RS 
00886 

00887 

00888 

00889 

00890 

00891 

00892 

00893 

00894 

00895 

00896 
008R7 
00*98 

00899 

00900 

00901 

00902 

00903 

00904 

00905 

00906 

00907 

00908 

00909 

00910 

0091 1 

00912 

00913 


*•«««  HIPO  2,1.2  *»*** 

UPHATF-MATH-REr , 

TF  COWO  = *V«  PERFORM  cOflF-V  THRU  COnE-Y-EXIT. 

TF  COWD  = 'O*  PERFORM  COOE-O  THRU  COOE-tJ-E X T T , 

IF  COWO  = *M»  perform  rOOE-M  THRU  rOOE-M-EXIT, 

IF  COWO  = *Z*  PERFORM  rODE-Z  THRU  COOE-Z-FXIT. 

TF  COWO  = 'X*  PERFORM  COOE-X  THRU  COOE-X-EXIT, 

IF  cowD  = ‘0*  perform  copf-d  thru  cooe-o-fxit, 

roHE-v, 

MOVE  CORR  AOVISOR-W  TO  RFCORO-PUFF , 
rooE-V-EXlT,  EXIT. 

rooE-Q, 

MOVE  SPACES  TO  WORK-aREAI. 

MOVE  SPACES  TO  WORK-AREA2, 

MOVE  atteno-oata  of  fTU-aTTFNO-W  TO  work-arfai. 

MOVE  ATTFNO-OATA  of  RECORO-RUFF  to  work-area?. 

MOVE  SPACES  TO  ATTFNO-OATA  OF  RECORO-RUFp. 

STRIMR  W0RK-AREA2  WORK-aRFAI  OELIMITfo  RY 
• ♦ INTO  attenp-daTa  of  rfcorp-puff. 
roriE-Q-EXIT.  EXIT, 

ror^E-M, 

MOVE  SPACES  TO  WORK-aREAI. 

MOVE  SPACES  TO  work-area?. 

MOVE  MgR-DATA  OF  aSSN-MRR-w  TO  WORK-aREAI , 

MOVF  mrr-data  of  rfcorp-puff  to  work-area?. 

MOVF  SPACES  to  MRR-DaTA  OF  RECORD-PUFF, 
string  WORK-ARFA?  WORK-AREAl  PFLIMITFO 

RY  ♦ * INTO  MRR-DaTa  of  RFCORO-PUFF. 

COOE-m-EXIT.  EXIT, 

COOE-P. 

MOVE  *n»  TO  DELETF-CHAR. 

CODE-O-FXTT,  EXIT. 

COOE-Z, 

IF  attfno-data  of  ftu-attfnd-deletf-w  is  equal  to  spaces 
ThFN  move  spaces  to  ATTEND-PATA  of  RECORD-RUFFt 
GO  TO  COOE-Z-EXIT, 

MOVE  SPACES  TO  ATTFNP-ARRA Y . 

MOVE  ATTFND-DATA  of  RECORD-RUFF  TO  ATTFND-ARRA Y . 

MOVE  1 TO  PTR, 

SET  0 TO  1. 

SEARCH  OTR-aTTFND  VARYING  PTR  AT  END  MOVE 

t attendance  Data  entry  to  pf  dflfted  not  found  * to 
FRR-MSG-LINF 


00914 

00915 

00916 

00917 
0091R 
00919 
009?0 
009?1 

00922 

00923 

00924 

00925 

00926 

00927 
0092fl 

00929 

00930 

00931 

00932 

00933 

00934 

00935 

00936 

00937 
00935 

00939 

00940 

00941 

00942 

00943 

00944 

00945 

00946 

00947 
00945 


ppRpnoM  TNVALTr>-lNPUT 

WHFN  QTR-aTTFND  (0)  = ATTFND-riATft  OF  FTU-ATTFMO-OEI TTF-W 
MOVE  ZEROS  TO  OTo-ATTENO  (Q) 
perform  fili -in-a  until  PTR  a 30 
MOVE  attfno-array  to  ATTFNO-DaTA  of  RFCOHO-HUFF, 
rooE-Z-EKTt.  EXIT. 

piil-in-a. 

MOVE  OTR-ATTFND  (Q  ♦ 1)  TO  OTR-ATTFNO  (Q), 

SET  0 UP  HY  1, 

ADO  1 TO  PTR, 

eno-fill-tn-a.  exit, 

COOE-X, 

MOVF  SPACES  TO  mrm-T aM-FIELO, 

set  m to  1, 

MOVE  1 To  PTR. 

UNSTOTN5  mpr-oaTa  OF  RFCORD-RUFE  OFLTMITEO  RY  INTO 

MPR  (M)  RPR  (M  ♦ I)  MRR  (M  « p)  MPR  (M  ♦ 3)  MRR  (M  ♦ 4) 
MRR  (M  ♦ 5)  MRR  (M  ♦ 6)  MRR  (M  ♦ 7)  MRR  (M  ♦ 5) 

MrR  (M  « q)  MRR  (M  « 10). 

SEARCH  MRH  varying  PTR  AT  FNO  MOVE 

t mfmreRShIP  entry  TO  HF  OELETEO  NOT  FOUND  * 

TO  ERd-MSG-LINF  perform  TNVALTD-TNPUT 

WHEN  MrtR  (M)  = assn-name  OF  MRR-DELETF-W 

MOVE  SPACES  TO  MRR  (M) 

Perform  fILL-IN-M  UNTIL  PTR  = 9 

MOVE  mrr-tar-etflo  to  mrr-oaTa  of  wfcord-ruee. 
ronE-X-FXTT.  EXIT, 

FILL-IN-m, 

move  HRR  (M  ♦ 1)  TO  MRR  (M), 

SET  M UP  RV  1. 

ADD  1 TO  PTR, 
fmo-fill-in-m.  exit. 


00950 

00951 

00952 

00953 

00954 

00955 

00956 

00957 
00955 

00959 

00960 

00961 

00962 

00963 

00964 

00965 

00966 

00967 

00968 

00969 


*****  reference  HIPO  2,1,3  ***** 

STAT-HIST, 

OPEN  I-O  STAT-HIST-OR*  OUTPUT  HIST-REOPG* 

OUTPUT  PRINT-FILE. 

MOVE  zeros  to  HIST-RFORG-RFC. 

IF  coon  * *H» 

move  zeros  to  accumulators 

MOVE  CORR  hist-data  TO  ACCUMULATORS 
MOVE  qtr-h  to  OTR-BUFF 
PERFORM  READ-HIST  THRU  EXIT-REAO-HIST , 

CLOSE  stat-hist-dh*  hist-reorg*  print-file, 

IF  OTR-RUFF  IS  NOT  EQUAL  TO  0 

Then  if  accumulators  is  equal  to  o 
Then  MOVF 

* ENTRY  TO  RE  DELETED  NOT  FOUND  IN  STATISTICS  HIST  FILE 
To  ERR-MSG-LINF* 

perform  invalid-input. 

PERFORM  SORT-STAT-HIST, 

fxtt-stat-htst,  exit. 


?4 


00070 

00071 
0007? 

00073 

00074 

00075 

00076 

00077 
00075 
00070 
OOOflO 
OOOfll 


OOOfl? 

00083 

00084 

00085 

00086 

00087 

00088 
00080 
OOOOO 
00091 
00002 

00093 

00094 


PF«0-HIST. 

»FAD  STAT-HlST-nR  ftT  FNO  GO  TO  FNO-mFAO-HIST , 

IF  QTH  OF  STaT-RFC  TS  F'JUAL  TO  QTR-HUFF 
Then  move  CORO  accumulators  To  ST4T-MFC» 

MOVE  ZEROS  TO  OTR-RUFF, 

IP  roMP-UG  OF  STAT-RFC  IS  NOT  FQUAL  TO  0 

Then  write  hist-rforg-rec  from  stat-rec. 

GO  TO  RFAO-HIST, 

FNO-READ-HIST, 

MOVE  zeros  to  HIST-RPORG-REC, 

IE  accumulators  is  not  equal  to  0 

THFN  IF  UTR-RUFF  IS  NOT  EQUAL  TO  0 
ThFN  move  corr  accumulators  to  HIST-RpORG-RPC 
MOVE  QTR-BUFF  TO  OTR  OF  H I ST-RFORG-RFC 
MOVE  ZEROS  TO  OTR-RUFF 
WHITE  HIST-REOHG-REC. 

extt-read-htst.  exit, 
sort-stat-hist. 

MOVE  102400  TO  SORT-CORF-S I ZF  . 

SORT  SORT-WORK-HOH 

OFSCFNOING  *<FY  OTP  OF  SORT-HOR-REC 

USING  HIST-REORG 
GIVING  STaT-HIST-DR. 
pno-maTH-LOAO-I/PDATE-SECTION, 


f 

f 

f 


c 


?s 


00*9  <>A 

00097 

0009R 

00099 

01000 

01001 

01002 

01003 

01004 

01005 

01006 

01007 
01  OOfl 
OinoQ 


01010 

01011 

01012 

01013 

01014 

01015 

01016 
OlOlT 
01018 
01019 
01O?0 
O10?l 
0102? 
01023 
Olo?4 
01025 
010?6 
01O27 
010?8 
01029 


#***♦  refprenCP  HIPO  2.2  *♦*»* 

LOftn-FTU-DATA  SFCTTON. 

TF  COOO  TS  WOT  FQtJAL  TO  *1»  AWO  *2»  AMO  >3*  ANO  ‘A*  THEM 
GO  TO  GFT-SPIN-OFF, 

OPEN  OUTPUT  SPIN-OFF, 

TNTTI ALIZE-SPO-REC, 

MOVE  SPACES  TO  SPIN-OFF-PEC. 

MOVE  ZE«OS  TO  SSN  OF  SPIN-OFF-PEC. 

MOVE  ZFPOS  TO  FTU-SUMMAPY  OF  SP I N-OFr-RFr . 

*»»«*  peFFRENCF  HIPO  2,?,?  **•** 

OF^OOE-SPIN-OFF, 

IF  COOP  = ‘I*  MOVE  COPP  GASIC-OATA-l  TO  SP I N-OFF-PFC . 

IF  COOP  = MOVE  COPP  STUD-AODPESS-2  TO  SPIN-OFF-PFC, 

IF  COOP  = ‘It  MOVF  CORO  PAHFNTS-APnPFSS-3  TO  SP I N-OFF-PEC . 
IF  COOP  = *4*  MOVE  COPP  INPEX-4  TO  T NOE X-CON VFPT 
MOVF  TNPFX-CONVFRT  TO  INDX  OF  SPIM-OFP-REC 
MOVE  SSN  OF  INPFX-4  TO  SSN  OF  SPIN-OFF-PFC. 
c-NO-OECOPE.  EXIT, 

PFAP-NEXT-C«PO. 

reap  carp-tn  at  fnp  go  to 
check-fop-enp-of-spo. 

IF  COOP  TS  NOT  EQUAL  TO  *1*  ANP  t?*  AWP  •3«  AMP  *4*  THFN 
WPITF  SPTN-OFF-PEC 
CLOSE  SPIN-OFF 
GO  TO  CHFCK-FOR-FNP-OF-SPO, 

IF  SSN  OF  RASIC-PATA-l  IS  NOT  EQUAl  TO  SSN  OF  SPIN-OFF-PFC 
THEN  WRITE  SPIN-OFF-REC 

perform  initializf-spo-rec, 

PERFORM  OECODE-SPIN-OFF  THRU  ENP-DFCOPE. 

GO  TO  rfao-mext-caro. 


01031  *****  RFFFRENCE  HIPO  2,?,1  ***** 

01032  GFY-SPIN-OFF, 

01033  * GET-SPIN-OFF  TO  RF  WRITTEN, 


01035  CHe-CK-FOR-ENO-OF-SPO, 

01036  IF  COOO  TS  NOT  EQUAL  TO  **•  THEN 

01037  MOVE  * ♦ expected  rut  dip  NOT  FINP  * TO  INPTCATF  END  maRKF 

01O3R  - ’R  FOR  SPIN-OFF  t TO  ERP-MSG-L INF • 

01039  perform  invalid-input. 


01041  *****  REFFRENCE  HIPO  2,2.3  ***** 

01042  LOAP-STUO-PR, 

01OA3  OPEN  INPUT  SPIN-OFF, 

01044  OPFN  OUTPUT  STUO-OaTa-RASE. 

01045  PERFORM  INITIALIZE-STUD-PB-RFC. 

01046  TRANSFER-DATA, 

010*7  REAP  SPIN-OFF  AT  END  GO  TO  END-OF-LOAD-STUD-DR , 

01048  MOVE  COPP  SPIN-OFF-RFC  TO  STUP-OB-REC, 

01049  MOVE  FTU-GPA  OF  SPIN-OFF-REC  TO  GPA  OF  STUD-DB-REC, 


t 


t 


Ol^'iO 

OlOSl 

0105? 

01053 

01054 

01055 
OIO55 
01057 

0lO5fl 

01O5<9 

01060 

01061 
01062 

01063 

01064 

01065 

01066 

01067 

01068 
0106P 

01070 

01071 

01072 

01073 

01074 

01075 

01076 

01077 

01078 

01079 

01080 
OlOfll 
01082 

01083 

01084 

01085 

01086 

01087 

01088 

01089 

01090 

01091 

01092 

01093 

01094 

01095 

01096 

01097 

01098 

01099 

01100 

01101 

01102 

01103 

01104 
[105 
i 1 06 


V A 
01 


M05T-HErFNT-0TR-fiMn-ir-GR4n. 

MOVE  INOX  or  SPIN-OPF-OFC  TO  INnEX-(\PRftY-LOan-FTELn, 

MOVE  0 To  CTP, 

5ET-CTW-L00P. 

MOVE  CUROENT-OTR-CODF  TO  SURSCRPTf  SURTRaTT  OTR  EROm 
SURSrPPT. 

TP  INOEX-ENTHY  (StlRScRPT) 

IS  NOT  POU4L  TO  •***•*»  THEN 
GO  TO  HAS-STUO-GRaOUATPO. 

AOO  1 TO  CTR, 

IP  (CURRPNT-fciTR-rOOE  - CTM)  > 0 GO  TO  SPT-CTR-LOQP 
ELSE  STRING  * * CANNOT  OFTERMTNE  LAST  OTR  aTTPMDEO  POR  • 

LAST-NAMP  of  SPIN-OPP-REC  PRST-MOL P-N A ME  OF  SPIN-OPE-HEC 
SSN  OP  SPIN-OEF-REC 

• CHECK  SPIN-OPP  OAT  A AND  CURRENT  OTR  INPUT' 

oelimitfo  ry  size  into  erp-msg-line 

OPEN  OUTPUT  PRINT-PILE 

WRITE  PRINT-LTNP  PROM  PRR-MSG-LINP  AFTER  POSITIONING 
3 LINES 

CLOSE  print-pile 

MOVF  SPACES  TO  ERR-mSG-L I NP , 
haS-STUD-GRAOUATED, 

IP  (CURRENT-QTR-COOE  - CIR)  = 0 

Then  move  •?*  TO  gmao  of  stuo-dh-rfc 

MOVE  zeros  to  ftu-last-otr  of  stud-or-rec 

GO  TO  STUD-LEVEL-OE-STUOY. 

MOVE  CURRENT-QTR-CODe  to  SURSCRPTt  SURTRaCT  rTR  FROM 
SU8SCRPT, 

IF  GRO-TNO  OF  INDEX-ENTRY  (SURSCRPT) 

IS  EOUAL  TO  tj,  OR  *2* 

MOVE  »Y*  TO  grad  of  STUD-DR-REC 
ELSE  MOVE  'N*  TO  GRAD  OP  STUD-DR-RPC. 

SET  YO  TO  SURSCRPT 
MOVE  YR-OTR  (YO) 

To  FTIJ-LAST-QTR  OP  STIJO-DR-REC. 

STl)D-LEVEL-OP-STUDY. 

IE  APPL-TYPF  of  SPTN-OEP-REC  < 5 MOVE  'U*  TO 
GRAO-UG-PB  OF  Stun-DR-REC, 

IP  APPL-TYPE  OP  SPIN-OPP-REC  = 5 MOVE  'P*  TO 
GRAD-UG-PB  OP  STUD-DB-REC, 

IF  APPL-TYPE  OF  SPIN-OPP-REC  = 6 OR  APPL-TYPp  OF  SPIN-OPP-RE( 
= 8 MOVE  ‘G*  TO  GRAD-UG-PB  OP  STUD-DB-REC, 

TP  APPL-TYPE  OP  SPIN-OPP-REC  IS  NOT  EQUAL  TO  1 AND  2 AND  3 
AND  4 AND  5 AND  6 AND  8 THEN 
MOVE  *?*  TO  GRAD-UG-PB  OF  STUD-DB-REC 

STRING  * * CANNOT  DETERMINE  IP  • LAST-NAME  OF 
SPIN-OFP-REC  PRST-MDLE-NAME  OF  SPIN-OFP-REC 
SSN  OP  SPIN-OEP-REC 

» IS  GRAD*  UG»  OR  PR  - IS  NOT  INCLUDED  IN  STATISTICS 
■ * * delimited  by  size  INTO  ERR-MSG-LINE 

OPEN  OUTPUT  PRINT-PILE 

WPTTP  PRTNT-LINP  PROM  PRR-MSG-LINP  AFTER  POSITIONING  1 
LINES 

CLOSE  print-pile 
MOVE  SPACES  TO  ERR-MSG-LINE. 
e-NTER-STUD-MAJOR, 

IE  major-1  of  SPIN-OFP-REC  = 1701 


?7 


01107 

on  ofi 
oil  oo 
oil  10 
01111 
01112 
01113 

on  14 
on  15 

01115 

01117 

on  ifl 

OHIO 

01120 


01123 

01124 

01125 

01126 
01127 
01125 
0112'» 

01130 

01131 

01132 

01133 

01134 
011  35 

01136 

01137 

01135 
01130 

01140 

01141 

01142 

01143 

01144 


ThFN  MOVF  *MATH»  to  MaJO» 
IF  MaJOR-1  f)F  SPTN-0rF-9FC  = 
THEN  MOV/F  *MATh«  m MflJoO 
TF  Ma. 109-1  OF  SPIN-0FF-9FC  = 
Then  movf  *como»  to  majop 
TF  MAJ09-1  OF  SPIN-OFF-RFC  = 
Then  move  “STaT*  to  MAJ09 
IF  MAJ09-1  OF  SPIN-0FF-9Fr  IS 


OF  STl)D-09-«fcC. 
1700 

OF  sTun-n«-REC. 
0701 

OF  STUO-OR-WEC. 
1702 

OE  STlin-nq-PEC. 
NOT  FOUAL  TO 


1701  ANO  1700  AND  0701  ANO  1702 
ThFN  mqvf  •????*  TO  MAJ09  OF  STUD-DR-PEC 

STOINO  • * cannot  determine  MaJOP  OF  • laST-NAMF  OF 
SPTN-OFF-REC  FRST-MOLE-NAMF  OF  SPIM-OFF-WEC  SSn  OF 
SPIN-OFF-REC 

* data  not  included  IN  STATISTICS’  DELIMITED  RY  SIZE 
INTO  EPR-MSO-LINF 
OPEN  OUTPUT  PRINT-FILF 

white  prtnt-line  from  frr-msg-line  after  positioning 

3 LINES 

CLOSE  print-file 

MOVE  spaces  to  frr-msg-line. 
mo\/F-GPA  , 


MOVE  FTU-GPA  of  ETU-SUMMaRY  of  SPIN-OFF-WEC  to  gpa  of 
STUO-OR-REC. 

WRT’F-STUO-DR-REC. 

TF  SSN  OF  STUn-OR-REC  IS  NOT  EQUAL  TO  0 
Then  IE  SSN  OF  STUO-DR-REC  IS  NUMERIC 
THFN  WRITE  STUO-DR-REC. 
perform  INITl ALIZE-STUD-OR-REC. 

GO  TO  transfer-data. 

TNITT ALIZE-STUD-DR-REC. 

MOVE  SPACES  TO  STLID-DR-REC. 

MOVE  ZEPOS  TO  GPA  OF  STUD-DR-RFC. 

MOVE  ZEROS  TO  ETU-LAST-OTR  OF  STUD-OR-REC . 

•^OVE  ZEROS  TO  AOVTSOO-SSN  OF  STUD-OR-REC. 

MOVE  ZEROS  TO  SSN  OF  STUD-DR-REC. 

ENO-OF-LOAD-STUD-DR, 

CLOSE  SPTN-OFF.  STUD-DaTa-RASE. 
rNn-ETU-OATA-SECTION, 


?R 


i 


01U6 

01U7 

OlUfl 

01149 

01150 

01151 
0115? 

01153 

01154 

01155 

01156 

01157 

01158 

01159 
01  UO 

SilSJ 

01163 


•«»»*  RfpgHFMrE  HIPO  ?,3  ***** 

'',rMF9aTF-HE‘*0KTS  section. 

S09T  S0OT-W0RK-SD5 

ASCENOING  KFY  S5N  OF  SORT-SPP-PEC 
USING  STUD-OATA-RaSE 
GIVING  GTUn-DATA-RASE. 

IF  MATH-rHANGE-MAOF  a ‘N*  GO  TO  HRANCH-TO-PRTNT-RTN, 
OOFN  OUTPUT  PRTNT-FIIF* 

OPEN  INPUT  MaTH-OFPT-STUO-UR, 

OPEN  I-O  stud-oata-pasf, 

perform  mfrge-oata, 

pereorm  peao-next-stuo-op-rec, 

PERFORM  COmpaRE-RFCOROS  THRU  ENO-OF -mfrGF-DaTa . 

CLOSE  print-file, 

CLOSF  MATH-OEPT-STUn-OBf  STUD-OAT A-RftSF . 
poaNCH-TO-PBInT-RTN, 

PFRFORm  IOFNTIFY-TYPF-RppORT  THRU  EXT T-Io-RFPn»T. 

GO  To  extt-gen-rpts-section. 


01165 

01166 

01167 

01168 

01169 

01170 

01171 
0117? 

01173 

01174 

01175 

01176 

01177 

01178 

01179 

01180 
oiiBi 
0118? 

01183 

01184 

01185 
01106 

01187 

01188 

01189 

01190 

01191 
0119? 

01193 

01194 

01195 

01196 

01197 


»«««»  qpfrpRENCF  HIPO  ?,3,1  ***** 

MF9GF-DAT  A , 

READ  maTM-OEPT-STUD-DR  AT  END  WRITE  STUO-Ofl-PEC, 

GO  TO  END-OE-MFRGF-DATA. 

RFAn-NEXT-STUO-OB-REC. 

READ  STUO-DATA-RASE  aT  EmD  GO  TO  FNO-OE-mfRGE-OAT A . 
COmPaRE-RECORQS, 

TE  SSN  OF  STUO-OR-REC  = SSN  OF  STUD-REC-m  THEN 
MoVF  COHR  STUO-RFC-M  to  STUn-OR-RFC 
WRITE  STUD-DR-RFC 
pfreorm  NULL-STUO-OR-REC 

perform  READ-NFXT-STUO-DR-REC*  pfreorm  mfpGF-OATA, 

GO  TO  COMPARF-PECOPDS. 

IE  SSN  OE  STUO-REC-M  < SSN  OF  STllO-D«-HEC  THFN 

STRING  • * SSN  I SSN  OF  STUO-REC-M  * NOT  FOUND  IN  FTU  • 
•SUPPLIED  DATA.  VERIFY  SSN.*  OFLIMITEO  RY  ST7E 
INTO  EHR-MSG-LINF 

WRITE  PRINT-LINE  FROM  frR-MSG-LINF  AFTER  POSITIONING  3 
LINES 

MOVE  SPACES  TO  FRR-MSG-LINE 
PPRPORm  MERGE-DATa 
GO  TO  compare-records. 

WRITE  STUD-DR-REC. 

PERFORM  RFAD-NEXT-STun-OP-WEC . 

GO  TO  compare-records. 

FMn-OE-MERGF-DATA.  EXIT. 

nijll-stud-dr-rfc. 

IF  advisor-name  of  stud-rec-m  is  eouai  to  spaces 

THEN  TF  AOVISOR-SSN  OF  STUO-RFC-M  IS  FOUAL  TO  Z^ROS 

Then  TF  attfno-data  of  stuo-REc-m  a spaces 

Then  if  mrp-data  of  stud-rec-m  a spaces 

then  move  zeros  to  SSN  of  stud-rec-m. 


01199  *****  reference  HIPO  ?.3  (CONT) 

01?00  TOFNTIEY-TYPE-REPORT, 


( 

( 


r 


01?01 
niPo? 
01^03 
01?04 
01?05 
01?06 
01?07 
OlPOfl 
01?09 
01?10 
01?1 1 
0\P\2 
01?)3 
01?14 
01?15 
01?16 
01?17 
Ol?10 
0l?19 
01??0 
01??1 
015»2? 


TF  cooo  = 'c*  pie:ppo«m  prtnt-stat  thru 
TF  coon  = «P*  OR  »Ft  THFM 

MOVE  10P400  TO  SOPT-CORE-STZE 
SORT  SOPT-WORK'SDP 

OFSCPNOINO  Kfy  FTD-LAST-OTR  OF 
ASrF»MOING  KFY  major  OF 

aScfnoinr  kfy  rrao-ug-pr  of 

ASCF.NniNG  KFY  LAST-NAMF  OF 

ASCFNiOING  KFY  FRST-MOLF-NAMF  Of 
USING  STUD-OaTa-RASF 
GIVING  STUD-OATA-RaSE 
PERFORM  PPXNT-RFpT  THRU  FNO-OF-PRT 
IF  COOO  = 'A*  THFN 

MOVE  102400  TO  SORT-CORE-SIZE 
SORT  SORT-KORK-SDR 

ascenoing  KFY  AOVTSOR-SSN  of 
ASCENDING  KFY  LAST-NAMF  OF 

ASCENDING  KFY  FRST-MDLF-N AME  OF 
USING  STUD-OATa-BASE 
GIVING  STUn-OATA-BASE 
perform  phinT-REPT  THRU  FNO-OF-PRI 
FXlT-in-REPORT.  EXIT. 


KNO-PRIM-STaT, 


SORT-SDB-REC 

SORT-SOR-REC 

SORT-SOR-REC 

SORT-SOR-REC 

sqrt-soo-rec 


NT-RFPT, 


SORT-SOP-REC 

SORT-SOP-REC 

SORT-SOR-REC 


NT-REPT. 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


1??4 

1225 

122G 

1227 

12?fl 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 
1255 


»»»•«  reference  HIPO  2.3,2  ***** 

PRTNT-STaT. 

OPEN  OUTPUT  print-file. 

MOVE  ZEROS  TO  ACCUMUL ATOPS. 

MOVE  ZEROS  TO  OTR-BUFF, 

WRITE  PRINT-LINE  FROM  pagF-HF AO-OEPT  AFTER  POSITIONING  0 

lines. 

WRTTf  print-line  from  stuo-stat-heao  after  positioning 
2 LINES. 

WRITE  print-line  from  OATF-HFAD  AFTER  POSITIONING  2 LINES. 
OPEN  INPUT  STUO-OaTA-BASF. 
rOMPUTE-CURPFNT-STAT. 

READ  STUO-OaTA-BASE  aT  ENO  CLOSE  STUO-OATA-BASF, 

GO  TO  CURRENT-OTR-TO-QTR-BUFF. 

IF  FTU-LAST-QTR  OF  STUO-OB-RFC  IS  NOT  EOUAL  TO 
CURRFNT-OTR  THEN  GO  To  COMPUTF-CUORENT-STaT. 

IF  major  OF  STUD-OB-REC  = ♦COMpi  THEN  PERFORM  COMP-TalLT. 

IF  Major  of  stuo-ob-rec  = 'math*  them  perform  math-tallv. 

IF  major  of  STUD-OR-REC  s ♦STAT*  THFN  AOO  1 TO  stat-ug 

OF  accumulators, 

GO  TO  COMPUTE-CURRFNT-STaT, 
rOMP-TALLT, 

IF  GRAO-UG-PB  OF  STUO-OR-REC  a *G*  THEN 
AOD  1 TO  C0MP-6P  OF  ACCUMULATORS, 

TF  GRAO-UG-PB  OF  STUO-DB-REC  a ’U*  THEN 
ADO  1 TO  COMP-UG  OF  ACCUMULATORS, 

IF  GRAO-UG-PB  OF  STUO-OB-RFC  = *P*  THFN 
AOO  1 TO  COMP-PB  OF  accumulators, 

math-tally. 

IF  GRAO-UG-PB  OF  STUO-OB-REC  = *G*  THEN 
AOO  1 TO  MATH-GR  of  ACCUMULATORS, 

IF  GRAD-IJG-PP  of  STUO-DB-REC  = *U*  THEN 
AOO  1 TO  MaTH-UG  of  accumulators. 


I 

t 


I 


:^o 

01?S7 

01  ?s<» 

01?5<> 
01  ?60 
01?61 
01?<S? 
01?63 
0 1?64 

0l?66 

01P67 

01?70 

01?71 

0l?7? 

01?73 

01>74 

01?75 

')l?7ft 

01^77 

01?7« 

01?7<) 

01?«0 

Ol?«? 

0l?«3 

0l?fl4 

9l?fl6 

01?S7 

niP»9 

01?90 

01?91 

01?9? 

01?93 

01?94 

Ol?95 

0H»96 

01?97 

01?98 

01?99 

onoo 

017O1 

ono2 

ono3 

01304 

onn? 

0130ft 

01307 

0130fl 


IF  GttflO-Ub-PH  OF  STUn-OR-BFC  = *R*  TMFN 
Ann  1 TO  math-pp  of  accumulators, 

rilORLNT-OTR-TO-OTR-RUFF  , 

MOVF  CUPPFNT-rtTW  TO  OTR-PUFF, 
mpoaTF-STAT-wIST-FILF. 

OPFN  T-0  ST4T-HIST-DP»  output  HlST-RcnP(j, 

PFRFOHM  PFAO-HTST  THRU  F X T T-RE 4 D-H I S T , 

CLOSE  STaT-HIST-OP.  hIST-REORO, 

PFRjrnRM  S0RT-ST4T-H1ST, 

OPEN  INPUT  STAT-HTST-DR. 
pptnT-STaT-LOOP, 

REAP  STaT-htST-DR  at  FNO  GO  TO  FNO-P9 T NT-ST A T-lOOP . 

MOVE  ZEROS  TO  ACCUMUl  4TORS, 

POVF  COPP  STAT-REC  to  ACCUMULATORS, 

AOO  C0»^P-UG  OF  ACCUMULATORS  COMp-fiR  OF  ACCUMULATORS 

COMP-PR  OF  accumulators  GIVING  COmPTOT  OF  ACCUMULATORS, 
AOO  maTH-UG  of  ACCUMULATORS  MATH-GR  OF  ACCUMULATORS 

maTh-pr  of  ACCUMUl ators  giving  mathtot  of  accumulators, 
MOVF  STAT-UG  OF  AC'“UmU|  ATORS  TO  STaTTOT  OF  ACCUMULATORS, 

AOO  rOMPTOT  OF  ACCUMULATORS  MATHTOT  OF  ACCUMUl  ATORS 

STATTOT  OF  ACCUMULATORS  GIVING  TOTSTUOS  OF  ACCUMULATORS, 
MOVE  OTR  OF  STaT-HIST-OP  TO  OTR-PRINT, 

WRITE  PRTNT-LINE  from  cURRENT-QTR-PRTNT  after  POSITIONING 
-3  lines, 

^rTTF  PRTNT-LINF  from  STuO-STAT-COL-mFAO  after  POSITIONIN'; 

? LINFS, 

AOO  MATH-UG  OF  ACCUMULATORS  STAT-UG  OF  ACCUMUl  ATORS  COMP-UG 
OF  ACrUMULATORS  GIVING  T0T-U6  OF  STUU-STaT-UNGR AO, 

MOVF  CORR  ACCUMULATORS  TO  STUO-STAT-UNGRaO , 

WRITE  PRINT-LINE  FROM  STUO-STAT-UNGRAO  AFTER  POSITIONING 

? lines, 

AOO  MATH-GR  OF  ACCUMULATORS  COMP-GP  OF  ACCUMULATORS  GIVING 
tot-gr  of  STUD-STaT-GRAO, 

MOVE  COPP  ACCUMULATORS  TO  STUO-STAT-gRAO, 

WRTTF  PPTNT-LTNE  FROM  STUO-ST AT-GRAO  AFTFP  POSITIONING 
? LINFS, 

AOO  COMP-PR  OF  ACCUMULATORS  MATH-PR  OF  ACCUMULATORS 
GIVING  TOT-PR  OF  STUO-STAT-POST-RAC, 

MOVE  CORR  accumulators  TO  STUO-STAT-POST-RAC. 

WRTTF  PRINT-LINE  PROM  STUD-ST AT-pOST-RAC  AFTFo 
positioning  ? LINFS, 

MOVE  C0»R  ACCUMULATORS  TO  STUO-ST AT-TOT , 

writf  print-line  FROM  stuo-stat-tot  after  positioning 
2 lines, 

MOVE  SPACES  TO  PPINT-LINF, 

write  PRINT-LINF  after  POSITIONING  3 LINES, 

GO  TO  POINT-STAT-LOOP, 
cNn-PRINT-STAT-LOOP, 

MOVE  SPACES  TO  PPINT-LINF, 

WRTTF  PRINT-LINE  AFTER  POSITIONING  0 LINFS, 

CLOSE  PRTNT-FILE»  ST aT-HIST-OR, 
run-PRiNT-STAT,  EXIT, 


01310 

01311 

01312 


•«««*  RpppRENCF  HIPO  2,3,3  ***** 
PRINT-RFPT, 

IF  coon  = ‘Rt  THEN  MOVE  ‘R*  TO  KOOF, 


31 


01313 

013)4 

0131S 

0131(S 

013)7 

0l3ia 

01319 

013;>0 

013?1 

on?? 

013?3 

013?4 

01325 

013?6 

01327 


TP  CnOD  = ‘F*  THFN  MOVF  *F»  TO  KOOF. 

IF  CnOO  = ’A*  THFN  MOVF  tA»  TO  KOOF, 
pfrppoWH  ppinjT-RTN  thru  PRINT-RTN-FNO, 

IF  GOOD  = *R»  THFN 

HOVF  102400  TO  SOwT-CORF-SIZF 
SORT  SORT-WOWK-SOR 

OFSCFNOINO  kfy  advisor-ssn  of  SORT-SOH-RFC 
ASGFNOINO  kfy  LAST-NAHF  of  SORT-SOP-REC 

aSCENOINO  key  fRST-MDLF-NAMF  of  SORT-Snn-RFC 
USTNR  STUO-OATA-RASF 
RTVTMO  STUD-OATA-RaSF 
MOVE  *S*  TO  KOOF 

PFHFORM  PHINT-RTN  Thru  print-rtn-fnd. 
rMn-OF-PRlNT-PFPT , EXIT, 
fxtt-rfn-hptr-sfction.  FXTT. 


on?9 

onio 

on^? 

0133* 

on^s 

on-^7 
01  ■»3P 
01330 

01340 

01341 
0134? 
01343 
01  344 
01349 
Ol34f« 
01347 

01349 
01  340 

01350 


• «•«»  tJpppppMrf-  MIPO  4,1  *•**• 

potmt-OTm  S9''TT0f^, 

MOVF  » MO*  TO  t<MF/it<-ST4T()S, 

OPFN  INPUT  STUn-OATfl-HASF  OUTPUT  POTNT-FILF. 
wc-AO  STUn-nATA-PASF 

at  FMO  vinVF  *«  NO  input  FPOM  STUO  data  OaOF*  TP 
Pi^INT-LlMFt  nfPTTF  PpT*gT-LIMF  AFTFP  P09  I T I OM  TNR  P LTNF9 
RO  TO  FX I T-POINT-OTm-SFCT ION. 
t OOP-POINT-RTN, 

PFPFOOM  LOAO-HWFaK-F IFLOS, 

PFppnWM  Phi  I NT -HE  AO  T NO*;  Th»U  FXIT-p«INT-ht  aoInrs;. 

PfPEOPv  PWTNT-OATA  TpHU  FXIT-oPlNT-nATA  UNT  11  RPF  AH’-ST  A TO*? 

IS  NOT  FOIIAl  TO  t NO*. 

IF  HOE AK-STa IU9  IS  NnT  FOUAL  TO  'EOF*  TutN 
MOVE  * MO*  TO  MOEaK-STaTUS 
00  TO  loop-p^Tmt-pTn. 
wptNT-PTN-ENO. 

MOVE  SPAOCS  TO  POTNT-LIMf, 

WRITF  pPTNT-LTMF  *FTfR  POSITTONIMR  0 I IMPS. 

FLOSF  STltO-OAT  A-PA9F  , POINT-FILE. 
s-X  T T-P«  InT-OTn-SEFTION. 

on  To  fmo-of-pbint-HTN-SFCTTOM. 


ons? 

01353 

01354 
013S9 
013SF. 
01397 
0l3Sfl 
01  3SO 

01390 

01391 
0139? 

01393 

01394 
01399 
01399 
01397 

01393 
01399 

01370 

01371 
0137? 

01373 

01374 
01379 
11379 
01377 
01379 

0 1379 
013B0 
01391 

01  3r? 
013R3 

01394 


pptnt-hf aHInrs, 

MOVE  spafff  ro  pmint-ltmf, 

wPITf  pOTnT-LIMF  FpOm  PARE.-HFAn-OF.P7  aft^p  pofitiontnr 
n ltmfs. 

TF  KOOF  3 *W*  OP  *F*  THFn 

Ppreopm  fohmuL aTF-SUP-heaOTMRS  Thru  FXIT-9UH-HEAn, 

TF  KOOF  a *F* 

WPITF  PRtnT-LINF  from  FAC-AOV-HFAP  AFTFP  POSITIONINR 

? I infs. 

IF  KOOF  = »p*  OP  *F* 

ixrTTF  ppinT-LTNF  rROM  TITLF-HOST  AFTER  pOSITIONTNR 
? LINES, 

TF  KOOF  a *9*  MQVF  * FACULTY  AOVISOO  EXTRACT  OF  STUDENT  ROST 
*FR  * TO  TITLE-1  TNF 

write  PPTNT-LINF  from  TITLF-ROST  AFTEh  POSITIONING  ? 

LINES. 

TF  KOOF  a *0*  WRITE  PRIMT-LTNF  FROM  FOPMFP-STUn-HE AO  AFTER 
POSI'TTOMTNR  ? I TMFS. 

wPITF  PRTNT-LIME  from  OATF-HEAD  AFTFP  POSITIONINR  ? LINES, 
MOVE  SPACES  TO  PPTNT-LINF.  WRITE  PPTNT-LTNE  AFTER  POSITIOMTNr, 
? LIMES. 

IF  KOOF  a •A* 

ThFM  if  aOVISOR-NaMF  of  STUO-nP-REC  IS  equal  to  spaces 
THFN  write  print-line  from  AOVlSFE-HEAn-ALT  AFTER 
POSITIONINR  ? LINES 

ELSE  MOVF  AOVTSOR-NAMF  OF  STUO-OR-REC  TO  AnvlSOR-NAMf 
OE  AOVISEE-HEAD 

write  print-line  from  AnVTSFF-HEAO  aFTEP  POSITIONING 

? i.infs. 

TF  KOOE  a *F*  WRITF  PRINT-LINF  FROM  F AC- AO V-COL-HF AO  AFTER 


POSITIONINR  ? lines, 

cx tt-print-hfaptnrs,  exit. 


3 1 

flnH7 

017RP 

On«Q 

Ol^qo 

01 

onci? 
01  ■''33 
01394 
01  3qs 

0 1 39A 
013<97 
013qfl 

01  3qq 

01400 

01401 
0140? 

01403 

01404 
0 14ns 
0140(S 
01407 
0140B 

01409 

01410 

01411 
0141? 

01413 

01414 

01415 

01416 

01417 
OMlfl 
01419 
014?0 
014?1 
014?? 
ni4?3 
014?4 
014?S 
014?6 
014?7 
Ol4?fl 
014?9 
01430 
01401 
0143? 

01433 

01434 
01436 

01436 

01437 
01436 

01439 

01440 

01441 


Lj1«»n-MWFf  K-PTEL'^S, 

«nvF  “fl  inq  OF  3Tiin-n«-wpr  to  ciRFaK-i, 

■■•nvF  owan-DO-DM  or  stdo-oh-wfC  To  M9caK-p, 

MOVF  anvi  SO'J-S'sN  of  PTltO-OH-RFr  to  qqFAK-3. 

t^OOMOL  ATF-SO^-HFAOra/OS. 

IF  Mfijop  <jr  sTUO-OB-BFr  = *00^9*  Tmfv 

If.  (^PAO-IJG-PP  OF  qTlJO-OH-RFC  = ‘O'  THF^J 

MOVF  • OoaoiJaTF  COMpuTfr  SCIFMOF  ma,)09<=:  ♦ 

TO  TITLF-LINF 

FLSF  TF  OPAD-Iirt-Pn  OF  sTUO-DO-WEC  = HI*  THFA 

MOVE  * UNiOFPOW  AOUATF  COMPUTpR  SCIFNCF  ''AJ09S  • 

TO  TTTI.F-LINF 

F{  SF  ""OVF  • POST-rtArr4L4UPF  ATF  CnwPiJTFP  STIFNCF  majOR':  • 
TO  TTTLF-LINIF 
FI  SF  MFXT  SFFiTFNCP. 

TF  majop  of  sToo-no-PEr  = 'math*  thfm 

IF  oPa[>.ijo-PR  of  «;TUO-OH-WEr  = ‘fi*  TMFN 

move  • OPAOUaTF  mathematical  SCTFNCF  Ma.JPPS  * 

TO  TTTLF-LINF 

FI  SF  TF  OHAO-UO-PR  OF  STUn-DR-PFC  = '0«  Them 

MOVE  • UMPFPRRAnUATE  mathematics  MAJOR'!;  • 

TO  TTTLF-L inf 
FLSF  MOVE 

iPOST-HACCAl  ALIOFATF  MATHEMATICAL  SCIENCE  MAJORS* 

TO  TITLF-L.INF 
FLSF  NEXT  sentence, 

TF  major  of  STUO-OH-REC  = *ST4T*  THEM 

MOVE  • unofroraouatf  statistics  majors  » 

TO  TTTLE-LINE. 
pXTT-SLIR-HEAO,  exit. 

ortnT-OATA . 

MOVE  CQRR  STUO-PR-PFC  TO  ARRP-NAMf. 

IF  KOPF  = 'S* 

THEN  TF  FTU-LAST-OTR  OF  STUP-PR-RPC  IS  NOT  FOIJAI  TO 
CIIRRFNT-OTR 

thpn  if  aovtsor-ssn  of  stuo-pr-pfc  is  foiial  to  /fro 

then  pFRrOPM  rONTINUF-ON»  00  TO  PRTNT-OATA, 

IF  KODF  = *S*  then  perform  RoSTFR-PRTNT , 

IF  KOPE  = *R' 

ThFN  TF  FTU-LAST-(iTR  OF  STUO-OR-RFC 
IS  FOUAL  TO  CIJ9RFNT-OTR 
THCM  ppppoRM  PnSTFR-PRiNT. 

TF  KOOF  3 *0* 

Then  tf  ftu-last-otp  of  stuo-pr-pfc  is  not  equal  to 
currfnt-qtr 

Then  jf  attrnp-oata  of  stuo-or-rfc  is  foual  to  • • 

Then  te  mpr-data  of  stuo-pr-pfc  is  equal  to  • * 

THEN  TF  APVTSOR-Namf  oF  STUP-OP-RPC  TS  FQUaI  TO  * * 

Then  tf  apvisor-ssn  of  stuo-or-rfc  ts  fquai  to  n 
THEN  00  to  CONTTNUF-ON. 

TF  KOOF  = *0'  perform  poster-print. 

IF  KOOE  = ‘F*  ANP  FTU-L  AST-OTR  OF  ST'IO-Pm-REC  IS  = 

currfnt-qtr 

MOVF  AHPP-NAME  TO  name  of  FAC-APV-OFT-LINF 
MOVE  APVISOR-Name  of  STUO-OR-RFC  to  AiWTSOR-Namf 


■^4 


0144? 

0 1444 
0144^ 
J144f. 
0 1447 
■J144P 
0 1 44Q 

0 14S0 
014S1 
014S? 

01  4S1 
o 1 4S4 
014S5 
014S4 
014S7 
al4SM 

0 14SQ 
014f,0 

01  4f,1 
014^? 
014f,l 
0 14^4 
014*,  c; 
0 14*,f, 
0 1447 

0 1 44P 
01440 

0 1470 
01471 
0147? 
0 14  7 0 

01474 

01475 
0147fS 
01477 

0 1 47P 

01  47'3 

01400 

01401 
n)4H? 
01400 
0 1404 
014^^ 
01404 
01407 
01400 
014oq 

0 1 400 

01  401 
0 140? 
(H40i 
0 1404 
0 1 40S 
0 140*, 
01407 
0 1 40P 


OP  p ftr-Anv-np T-L T NP 

wojfr  owytvjT-l  IMP  POO*-  P A r- 0 DV-DP  T -I  TNP  APTfO 
POO  1 T TOP'T  ? LTNJFs. 

TP  KOOF  = iftt 

TmPn  TP  PTU-l  rtOT-'jTw  OP  STMn-OW-OPr  [S  KjMaI  to 
CIIOOP  nt-OTW 

MOVP  aoqo-NAMF  to  NaMP  of  AOVISPF-nF T-l  INP 
wpTTP  PWTnT-LTmp'  PPOM  floVTSF  F-DF  T-L  I '^p  AFTPP  POS  T T I (T'i  I 
? I 

rOMTT\'JF-0N. 

PPAti  ST'i'>-nA  T A-OAOP  aT  pnO  ••0\/F  ‘POF’  to  hRPak-sTaTUP 
GO  TO  F X T T-PP  TNiT~n  A T A . 

''OMT  T M IP'-0\'P  NO  , 

TP  KOOP  = 'P* 

T,4PN  tF  p TU-l  AOT-OTO  op  STUn-Ort-opr  I-,  not  FOUM  TO 
C'IRn'cmT-OTO  ThPN  v.OV'^  *F0F»  to  HPp  AK-STaTOS« 
r,n  10  fxtT-pwtnT-oaTa, 

TF  KOOP  ■:  •«* 

ThPN  tp  ptu-i  ast-qtw  op  sTun-n'-A-ppo  tg  not  foiui.  to 
riiH-vr-vjT-Qto 
TMP'J  MOVP  'O*  TO  KOOP 

MOVF  ‘YPS*  To  hrfaK-STaTII'; 

GO  TO  FXTT-PRiNT-nATA, 

IF  KOOP  = OR  'P* 

TmFN  TF  major  of  STUn-OH-RPr 

TC  ^nr  cfjUAL  To  OPFAK--!  op  gPaO-O^-RM  of  STon-D'  -RFC 
IS  NOT  FOllAl  To  ROFAK-? 

wov/t  lyPS'  TO  OPFAK-STaTIJO, 

TP  KoOP  = «A*  OR  tS* 

TmPN  TP  OrFaK-0  TS  not  POIJAL  TO  AOV I SOP-S‘^1'' 
op  STilO-OM-oPr  THPN  MOVP  •YFS*  TO  hpfak-status. 

TP  KOOE  = •0*  MOVP  • HO*  TO  pop  AK-GT  A Tll> . 
rXTT-PPTNT-OATA.  PXTT. 

roCTFR-PRTN'T. 

M0(/F  rnop  oTtjn-nH-PFo  ro  namp-linp. 

MOVP  FTO-I  AST-OTP  of  STilh-riH-RFC  TO  P T IJ-L  a ST -O  T R-Pn  T T . 

XOVP  1.  APT-YR-ATT-POIT  to  LAST-YR-ATT  op  FTII-I  a<;T-0TP 
OF  \ARF-I  TNF. 

TP  LaST-OTP-aTT  = '1*  THPN 

MQWF  'F*  TO  LaST-OTR-aTT  SDhTRaCT  1 PROM  LAST-YR-ATT-pniT 
MOVF  I A«:T-YR-ATT-PnT  T TO  IAST-YR-ATT. 

TP  1.  aST-OIW-aTT  = •?•  THFM 
MOVP  'w*  TO  L AST-OTR-aTT . 

TP  I aST-oTR-aTT  = *3*  TMPXi 
MOVF  ‘S*  TO  I AST-OTr-aTT  . 

TP  I aST-OTR-aTT  = *4*  TMPM 
MOVP  *U»  TO  LAST-OTR-aTT, 

TP  maRITal-STATUS  op  Namf-L INP  = *1*  THP" 

MOVP  ‘S*  TO  mart  TaI.-ST  ATUS  OF  HAMP-LI*JP. 

IP  MftRiTAL-ST ATUS  op  NAMT-ltNP  = •?•  Thpn 
MOVF  »Mi  TO  mart  T Al  -S  TA  TUS  OP  NAMP-ITvP. 

TP  M flR  T T aL-ST  A TUS  OF  ^iAMC-.LT^F  = *7*  THPhi 
MOVF  *0*  TO  P'ART  TaI -ST  ATUS  OP  NaMP-LInp, 
v^rjTp  PPtnT-1  TNP  prom  namf-I.TNF  APTPR  POSITIONING  ? LTN*-S. 
MOVP  OCRR  STUn-OH-OEr  TO  AIAOR-IINP. 

mRTTP  PRTNT-I INF  FROM  AHOH-IINF  APTPR  POSITIONINO  1 ITNFS, 


f 

I 

f 


r 


OlAOQ  "‘OVE  rOPP  STUn-OM-PFC  AUnW-PaWFNT-Ll . 

01*^00  w«TTf  PPTNT-LTMF  PPO"*  afinP-PaPFNT-LTMF  AFTFP  Pn<;TTTr>AINft 

01*^01  1 LIMPS. 

OlPO?  MOVE  Cf)PP  ETUI)-DH-PE'“  T'^  FTU-ATTN-1  IMF. 

01^0'?  WPTTr  PPTA'T-t  TNJF  FPOm  F Ttl- A T TM-L  T Nf-  aPTFP  POPTTIOMTKr. 

01‘=>04  1 LIMES. 

01  EOS  c-MH-OE-PRlNT-PT'vi-SFrTTOM. 


•STaTTSTITS* 


•OPTIONS 

♦OPTIONS 

♦OPTIONS 

•OPTIONS 


IN 

IN 

IN 

IN 


TIMfS 

|J« 

TO/CORE  — 


FFEETT^ 

ffffct^ 

FFFFCT* 

?.07 
1 tFl? 
416 


SOURCE  RECORDS 


ISPS 


data  division  statements 


S03 


P'jorEDiiMf 


SI7F  = 1?0R3?  RDF  = 12496  LINECNT  x 67  SPaCEI*  FLaDF.  SfO. 

NODMAP*  NOPMAO*  NOCLIST*  SUPMaP*  NOXRFFf  NOSXRFFt  L'^AO.  NODErt- 
NOTFHM,  NONUm,  mORATCH,  NONAMFf  COMPILFxOl*  N0STATF»  NO^FSI^FNT.  n 
OPTlMlZFt  NOSYMOMP,  NOTFSTf  NOVERHt  ZwR*  SYST*  NOFNnjOP 

— CFRDC-HASP  JOH  STATISTICS  — - 


minutes  elapsed 

CAROS  READ 
DISK  EXCPS 


?R.44 

0 

0 


SECONDS  CPU 
CAROS  PUNCHED 
tape  EXCPS 

HASP 


8.3?  SECONDS  I/O 
l*5flo  LINES  PRINTFO 
120K  RFQUFSTED 


♦ 16 


SYSTEM 


I 0 D 


% ?0.42,19  JOR  174  — COMPSRRP  —15 
N ?0,44,?3  JOR  174  END  EXECUTION, 


C R 


//C0MP69RP 
// 


jOR 


SIFRIT* , 


( 177P.33R6«SliS«»FTUt4S,30»?0,  f,7)  » ♦ROGER 
CLASSxR,MSGLEVEL=(l*n 
♦♦•JORPaRMPSSxNO 
//  FXFC  CDRUCtPARMxELAGF 

XXCOH4C  PROC  I THlxiuSF.SS.COPYLIR* *LIR?=»SYS2.NPDSSRCE' , 

XX  UNlx,UN2x,VLla»VL2a 

•♦*  ALIAS  Name  - 

♦♦*  DATE  last  MODTFIFO  - 12/23/75  - RSP 
XxrOB  EXEC  PGMalKFCPLOOtPARMxNDLOAO 

XXSTFPLTR  DD  OSNxSYSl .PPLTNK .DISPxSHR 
//COR.SYSTN  DD  • 

X/SYSIN  DO  OSNxA,iSOURCFfOISPa(OLO*DELETE) 

XXSYSLIP  DO  DSNX6LIB1  »PTSPxSHR*UMITxMJN1  .VOLxR,VLl 

TEF653I  SURSTITUTION  JCL  - DSNaUSF ,SS .COPYL I Rt OISP=SHR ,UN1 Tx , VOL= 

XX  DO  DSNxIsLIB?*OTSP=SHR.UNITxx.UN2,  VOL  = «.VL2 

TEP653T  SURSTIT'ITTON  JCL  - DSNxSYS2,NPDSSRCE»DISPxSHR.UNITx,V0L= 

XXSYSLIN  DO  OSMxM^LOaDSET.DISPs (MDDfPASS) * 

XX  UNTTxSYSDAtSPACEa(CYL» (1»1) ) » OCRx ( RECFMxER ♦ RLKSl ZFxfl 0 

XXSYSPRINT  DD  SYSOUTxA 

XXSYSPUNCH  DO  DUmmY.SYSOUTx 

XXSYSUTI  do  UNTTxSYSD4,SPACE=(CYL*  (2»1 ) ) 

XXSYSUT2  DD  UNTTxSYSDA,SPACE=(CYL» <2.11 1 
XXSYSUT3  DD  UN T TxS YSDA ♦ SP ACE* ( CYL » ( 2 . 1 ) 1 
XXSYSUT4  DD  UNTTxSYSOAtSPACE*(CYL» (2.1) ) 

XXSYSUTS  do  UNTTaSYSOA,SPACF*(CYL»  (2.1)  .RLSE)  .DlSPsIMOf). PASS) 

•••  PROJ  0030  CFRDC  SYSTEMS  PROGRAMMINO 

// 


0) 


X JOR  174 


0 0 0 0 0 1 0 0 
00000200 
00000300 
00000400 
00000500 
0000060'^ 

0000070t» 

OOOOOPOo 

OOOOOROO 

OOOOlOOo 
00001  1 on 
00001200 
00001300 
00001400 
00001500 
00001600 
0000170O 
OOOO10OO 
00001900 


♦*  allocation 

FOR 

C0MP698P 

STEPLIB 

3S0 

3330 

DISK 

syslnk 

SYSIN 

403 

2540 

RDR 

SYSLIR 

3R4 

3330 

DISK 

USFPK? 

ISO 

3330 

DISK 

SYSIPL 

SYSLIN 

3S1 

3330 

DISK 

SYSPK2 

SYSPRINT 

A'^O 

1403 

prt 

SYSPUNCH 

DUMMY 

SYSUTl 

3S1 

3330 

DISK 

SYSWK2 

SYSUT? 

151 

3330 

DISK 

SYSWKI 

SYSUT3 

151 

3330 

DISK 

SYSWKl 

SYSUT4 

351 

3330 

DISK 

SYSWK2 

SYSUT5 

351 

3330 

DISK 

SYSWK2 

,COR 

SYSl .PPLINK 
SYS76155.T204220.RV1S1 
USE.SS.COPYLIR 
SYS2,NP0SSRCE 
SYS76155.T204220.RV1S1 
SYS76155.T204220.RV1S1 
NULLFILE 

SYS76155.T204220,RV151 

SYS76155.T204220.HV1S1 

SYS76155,T2042?0.RV151, 

SYS76155.T204220.RV1S1 

SYS76155,T?042?0.RV1S1 


(STEP  001)  ****♦****♦*♦*•• 


COMP698P.R0000001 


CDMP698P.L0A0SFT 

COMP698P,ROo00002 

COMP698P,R0000003 

CnMP698P,R0000004 

COMP698P.R00P00O5 

COMP69aP,R0000006 

COMP69flP,ROOOOOn7 


pp  S734-CM2  pfi.faSF  1.2  110CT73 


lOM  OS  AMERICAN  national  STANDARD  COROl. 


C 

c 

c 

r 


